home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / multiCONTROLLOOP.s < prev    next >
Encoding:
Text File  |  1996-07-29  |  58.1 KB  |  3,097 lines
  1. ; Main control loop.
  2. ; This is the very outer loop of the program.
  3.  
  4. ; What needs to be done and when?
  5.  
  6. ; Black screen start.
  7. ; Load title music
  8. ; Load title screen
  9. ; Fade up title screen
  10. ; Select options
  11. ; Play game.
  12.  
  13. ; Playing the game involves allocating screen and
  14. ; level memory, loading the level, loading the
  15. ; samples, loading the wall graphics, playing the
  16. ; level, deallocating the screen memory....
  17.  
  18. ; Control part should therefore:
  19.  
  20. ; 1. Load Title Music
  21. ; 2. Load title screen
  22. ; 3. Fade up title screen.
  23. ; 4. Add 'loading' message
  24. ; 5. Load samples and walls
  25. ; 6: LOOP START
  26. ; 7. Option select screens
  27. ; 8. Free music mem, allocate level mem.
  28. ; 9. Load level
  29. ;10. Play level with options selected
  30. ;11. Reload title music
  31. ;12. Reload title screen
  32. ;13. goto 6
  33.  
  34. INTROTUNEADDR: dc.l 0
  35. INTROTUNENAME: dc.b 'ab3:sounds/abreed3d.med',0
  36.  even
  37. TITLESCRNADDR: dc.l 0
  38. TITLESCRNNAME: dc.b 'TKG1:includes/titlescrnraw1',0
  39.  even
  40. TITLESCRNNAME2: dc.b 'TKG2:includes/titlescrnraw1',0
  41.  even
  42. OPTSPRADDR: dc.l 0
  43. TITLESCRNPTR: dc.l 0
  44.  
  45.  
  46.  
  47. ProtValA: dc.l 0
  48. ProtValB: dc.l 0
  49. ProtValC: dc.l 0
  50. ProtValD: dc.l 0
  51. ProtValE: dc.l 0
  52. ProtValF: dc.l 0
  53. ProtValG: dc.l 0
  54. ProtValH: dc.l 0
  55. ProtValI: dc.l 0
  56. ProtValJ: dc.l 0
  57. ProtValK: dc.l 0
  58. ProtValL: dc.l 0
  59. ProtValM: dc.l 0
  60. ProtValN: dc.l 0
  61.  
  62. MASTERPLAYERONEHEALTH:
  63.   dc.w 0
  64.   dc.w 0
  65. MASTERPLAYERONEAMMO:
  66.  ds.w 20
  67.  
  68. MASTERPLAYERONESHIELD:
  69.  dc.w 0
  70.  dc.w 0
  71. MASTERPLAYERONEGUNS:
  72.  dcb.w 10,0
  73.  
  74. MASTERPLAYERTWOHEALTH:
  75.   dc.w 0
  76.   dc.w 0
  77. MASTERPLAYERTWOAMMO:
  78.  ds.w 20
  79.  
  80. MASTERPLAYERTWOSHIELD:
  81.  dc.w 0
  82.  dc.w 0
  83. MASTERPLAYERTWOGUNS:
  84.  dcb.w 10,0
  85.  
  86. KVALTOASC:
  87.         Dc.b    " `  "," 1  "," 2  "," 3  "
  88.         dc.b    " 4  "," 5  "," 6  "," 7  "
  89.         dc.b    " 8  "," 9  "
  90. ; 10
  91.         Dc.b    " 0  "," -  "," +  "," \  "
  92.         dc.b     '    ','    '," Q  "," W  "
  93.         dc.b    " E  "," R  "
  94. ; 20
  95.         Dc.b    " T  "," Y  "," U  "," I  "
  96.         dc.b    " O  "," P  "," [  "," ]  "
  97.         dc.b    '    ','KP1 '
  98. ; 30
  99.         Dc.b    'KP2 ','KP3 '," A  "," S  "
  100.         dc.b    " D  "," F  "," G  "," H  "
  101.         dc.b    " J  "," K  "
  102. ;40
  103.         Dc.b    " L  "," ;  "," #  ",'    '
  104.         dc.b    '    ','KP4 ','KP5 ','KP6 '
  105.         dc.b    '    '," Z  "
  106. ;50
  107.         Dc.b    " X  "," C  "," V  "," B  "
  108.         dc.b    " N  "," M  "," ,  "," .  "
  109.         dc.b     " /  ",'    '
  110. ;60
  111.         Dc.b    '    ','KP7 ','KP8 ','KP9 '
  112.         dc.b    'SPC ','<-- ','TAB ','ENT '
  113.         dc.b    'RTN ','ESC '
  114. ;70
  115.         Dc.b    'DEL ','    ','    ','    '
  116.         dc.b    'KP- ','    ','UCK ','DCK '
  117.         dc.b    'RCK ','LCK '
  118. ;80
  119.         Dc.b    'FK1 ','FK2 ','FK3 ','FK4 '
  120.         dc.b    'FK5 ','FK6 ','FK7 ','FK8 '
  121.         dc.b    'FK9 ','FK0 '
  122. ;90
  123.         Dc.b    'KP( ','KP) ','KP/ ','KP* '
  124.         dc.b    'KP+ ','HLP ','LSH ','RSH '
  125.         dc.b    'CPL ','CTL '
  126. ;100
  127.         Dc.b    'LAL ','RAL ','LAM ','RAM '
  128.         dc.b    '    ','    ','    ','    '
  129.         dc.b    '    ','    '
  130.         Dc.b    '    ','    ','    ','    '
  131.         dc.b    '    ','    ','    ','    '
  132.         dc.b    '    ','    '
  133.  
  134.  even
  135.  
  136. FINISHEDLEVEL: dc.w 0
  137.  
  138. _IntuitionBase: dc.l 0
  139. _GfxBase: dc.l 0
  140. MyScreen: dc.l 0
  141.  
  142. MyNewScreen    dc.w    0,0        left, top
  143.         dc.w    320,16        width, height
  144.         dc.w    1        depth
  145.         dc.b    0,1        pens
  146.         dc.w    0        viewmodes
  147.         dc.w    CUSTOMSCREEN+SCREENQUIET    type
  148.         dc.l    0        font
  149.         dc.l    0    title
  150.         dc.l    0        gadgets
  151.         dc.l    0        bitmap
  152.  
  153.  
  154. INTUITION_REV    equ    31        v1.1
  155. int_name    INTNAME
  156.  even
  157.  
  158. START:
  159.  
  160.  move.b #'n',mors  
  161.  
  162. ************************************88
  163. * TAKE OUT WHEN PLAYING MODULE AGAIN
  164. ********************************
  165. ProtChkBLev1:
  166.     PRSDF
  167.     PRSDE
  168. ************************************
  169.  
  170. ; move.l #PROTCALLENC,a0
  171. ; move.l #(ENDPROT-PROTCALLENC)/4-1,d1
  172. ; move.l #$75055345,d0
  173. ;codeitup:
  174. ; sub.l d0,(a0)+
  175. ; ror.l #1,d0
  176. ; dbra d1,codeitup
  177. ; rts
  178.  
  179. ProtChkCLev1:
  180.  PRSDA
  181.  
  182.  move.w #$7201,titleplanes
  183.  
  184.  move.l 4.w,a6
  185.  move.l #doslibname,a1
  186.  moveq #0,d0
  187.  jsr -552(a6)
  188.  move.l d0,doslib
  189.  
  190.     moveq    #INTUITION_REV,d0    version
  191.     lea    int_name(pc),a1
  192.     CALLEXEC OpenLibrary
  193.     tst.l    d0
  194. ;    beq    exit_false        if failed then quit
  195.     move.l    d0,_IntuitionBase    else save the pointer
  196.  
  197.     lea    MyNewScreen(pc),a0
  198.     
  199.     CALLINT    OpenScreen        open a screen
  200.     tst.l    d0
  201. ;    beq    exit_closeall        if failed the close both, exit
  202.     move.l    d0,MyScreen
  203.  
  204.     CALLINT RethinkDisplay
  205.  
  206.  move.l #LINKname,a0
  207.  jsr LOADAFILE
  208.  move.l d0,LINKFILE
  209.  
  210.  move.l #LEVELTEXTNAME,a0
  211.  jsr LOADAFILE
  212.  move.l d0,LEVELTEXT
  213.  
  214.  jsr stuff
  215.  
  216.  move.l gfxbase,a6
  217.  jsr _LVOOwnBlitter(a6)
  218.  
  219.  move.l 4.w,a6
  220.  lea BLITInt,a1
  221.  moveq #6,d0
  222.  jsr _LVOSetIntVector(a6)
  223.  move.l d0,SYSTEMBLITINT
  224.  
  225. ; move.l doslib,a6
  226. ; move.l #LINKname,d1
  227. ; move.l #1005,d2
  228. ; jsr -30(a6)
  229. ; move.l d0,LLhandle
  230. ;
  231. ; move.l doslib,a6
  232. ; move.l d0,d1
  233. ; move.l #LINKSPACE,d2
  234. ; move.l #90000,d3
  235. ; jsr -42(a6)
  236. ;
  237. ; move.l doslib,a6
  238. ; move.l LLhandle,d1
  239. ; jsr -36(a6)
  240.  
  241.  
  242.  PRSDS
  243.  
  244.  jsr _InitLowLevel
  245.  
  246. ; jsr CLEARTITLEPAL
  247.  
  248. ProtChkDLev1:
  249.  PRSDT
  250.  
  251.  move.w #$20,$dff1dc
  252.  move.l #titlecop,$dff080
  253.  PRSDV
  254.  move.w #$87c0,$dff000+dmacon
  255.  move.w #$8020,$dff000+dmacon
  256. ProtChkMLev1:
  257.  move.w $dff006,d0
  258.  lea RVAL2-100(pc),a0
  259.  add.w d0,100(a0)
  260.  
  261. ; bsr GETTITLEMEM
  262. ProtChkELev1:
  263.  PRSDU
  264. ; bsr CLROPTSCRN
  265.  
  266. ; bsr SETUPTITLESCRN
  267.  
  268. ; jsr _InitPlayer
  269.  
  270. ; move.l #INTROTUNENAME,a0
  271. ; jsr _LoadModule
  272. ; move.l d0,INTROTUNEADDR
  273.  PRSDY
  274. ; move.l d0,a0
  275. ; jsr _InitModule
  276.  
  277. ; move.l INTROTUNEADDR,a0
  278. ; jsr _PlayModule
  279. ProtChkFLev1:
  280.  PRSDa
  281. ; move.l #TITLESCRNNAME,TITLESCRNPTR
  282. ; bsr LOADTITLESCRN2
  283.  
  284. ; FLASHER $0f0,$fff
  285.  
  286. ******************************
  287.  jsr mnu_copycredz
  288.  jsr mnu_setscreen
  289.  move.l a7,mnu_mainstack
  290.  jsr mnu_viewcredz
  291.  
  292.  jsr mnu_clearscreen
  293.  
  294.  WBSLOW
  295.  WBSLOW
  296.  
  297.  move.l 4.w,a6
  298.  move.l SYSTEMBLITINT,a1
  299.  moveq #6,d0
  300.  jsr _LVOSetIntVector(a6)
  301.  
  302.  move.l gfxbase,a6
  303.  jsr _LVODisownBlitter(a6)
  304.  
  305.  move.w #$83f0,$dff096
  306.  
  307. ******************************
  308.  
  309.  
  310. **********************************************
  311.  jsr INITQUEUE
  312. **********************************************
  313.  
  314.  move.w #0,FADEVAL
  315.  move.w #31,FADEAMOUNT
  316.  bsr FADEUPTITLE
  317.  PRSDB
  318.  jsr LOAD_SFX
  319.  jsr LOADWALLS
  320.  jsr LOADFLOOR
  321.  jsr LOADOBS
  322.  PRSDZ
  323.  
  324.  
  325.  move.l #backpicname,a0
  326.  move.l #BackPicture,d0
  327.  move.l #0,d1
  328.  jsr QUEUEFILE
  329.  
  330. ; IFNE CD32VER
  331.  PRSDD
  332. ; ENDC
  333.  
  334. ; jsr _StopPlayer
  335.  PRSDW
  336.  PRSDX
  337. ; jsr _RemPlayer
  338.  
  339.  
  340. ***********************************************
  341.  jsr FLUSHQUEUE
  342. ***********************************************
  343.  
  344.  jsr PATCHSFX
  345.  
  346.  move.w #23,FADEAMOUNT
  347.  bsr FADEDOWNTITLE 
  348.  
  349. ; bsr ASKFORDISK
  350.  
  351.  IFNE CD32VER
  352.  move.l doslib,a6
  353.  move.l #115,d1
  354.  jsr -198(a6)
  355.  ENDC
  356.  
  357. ; move.l #newblag,$80
  358. ; trap #0
  359. ; bra JUMPPASTIT
  360. ; rts
  361. ;
  362. ;newblag:
  363.  
  364.  
  365. ProtChkGLev1:
  366. ; bsr PROTSETUP
  367.  bsr DEFAULTGAME
  368.  
  369. ; move.l INTROTUNEADDR,a0
  370. ; jsr _UnLoadModule
  371.  
  372. ; IFEQ CD32VER
  373. ; jsr KInt_Init
  374. ; ENDC
  375. ProtChkHLev1:
  376. ; rte
  377. ;
  378. ;JUMPPASTIT:
  379. ; 
  380.  
  381.  jsr mnu_GETBLITINT
  382.  jsr mnu_setscreen
  383.  
  384. ; jsr mnu_protection
  385.  
  386.  
  387. BACKTOMENU:
  388.  
  389.  jsr CLEARKEYBOARD
  390.  
  391.  
  392.  cmp.b #'s',mors
  393.  beq.s BACKTOSLAVE
  394.  cmp.b #'m',mors
  395.  beq.s BACKTOMASTER
  396.  bsr READMAINMENU
  397.  bra DONEMENU
  398. BACKTOMASTER:
  399.  bsr MASTERMENU
  400.  bra DONEMENU
  401. BACKTOSLAVE:
  402.  bsr SLAVEMENU
  403. DONEMENU:
  404.  
  405.  jsr mnu_clearscreen
  406.  jsr mnu_DROPBLITINT
  407.  move.w #$83f0,$dff096
  408.  
  409.  bsr WAITREL
  410.  
  411. ; IFEQ CD32VER
  412. ; move.l OLDKINT,$68.w
  413. ; ENDC
  414.  
  415.  
  416.  
  417.  
  418. ; bsr CLRSPRITES
  419.  
  420. ; move.w #23,FADEAMOUNT
  421. ; bsr FADEUPTITLE
  422. ; move.w #31,FADEAMOUNT
  423.  bsr FADEDOWNTITLE
  424.  
  425.  move.w #$0201,titleplanes
  426.  
  427.     FILTER
  428.     
  429.  tst.b SHOULDQUIT
  430.  bne QUITTT
  431.  
  432. ; bsr RELEASETITLEMEM
  433.  
  434.   
  435. ; jsr LOADBOTPIC
  436.  
  437.   
  438.  clr.b FINISHEDLEVEL
  439.  
  440.  move.w #0,PLR1s_angpos
  441.  move.w #0,PLR2s_angpos
  442.  move.w #0,PLR1_angpos
  443.  move.w #0,PLR2_angpos
  444.  move.b #0,PLR1_GunSelected
  445.  move.b #0,PLR2_GunSelected
  446.  
  447. **************************8
  448.  clr.b NASTY
  449. *************************** 
  450.  
  451.  move.l #MASTERPLAYERONEHEALTH,a0
  452.  move.l #MASTERPLAYERONESHIELD,a1
  453.  move.l #PLAYERONEHEALTH,a2
  454.  move.l #PLAYERONESHIELD,a3
  455.  move.l #PLAYERTWOHEALTH,a4
  456.  move.l #PLAYERTWOSHIELD,a5
  457.  
  458.  REPT 11 
  459.  move.l (a0),(a2)+
  460.  move.l (a0)+,(a4)+
  461.  ENDR
  462.  
  463.  REPT 6 
  464.  move.l (a1),(a3)+
  465.  move.l (a1)+,(a5)+
  466.  ENDR
  467.  
  468. *************************************
  469.  jsr INITQUEUE
  470.  
  471.  move.l #MEMF_CHIP,d1
  472.  move.l #10240*8,d0
  473.  move.l 4.w,a6
  474.  jsr -198(a6)
  475.  move.l d0,scrn
  476.  
  477.  move.l #MEMF_CHIP,d1
  478.  move.l #10240*8,d0
  479.  move.l 4.w,a6
  480.  jsr -198(a6)
  481.  move.l d0,scrn2
  482.  
  483.     move.l    #borderpacked,d0
  484.     moveq    #0,d1
  485.     move.l  scrn,a0
  486.     lea    WorkSpace,a1
  487.     lea    $0,a2
  488.     jsr    unLHA
  489.  
  490.     move.l    #borderpacked,d0
  491.     moveq    #0,d1
  492.     move.l  scrn2,a0
  493.     lea    WorkSpace,a1
  494.     lea    $0,a2
  495.     jsr    unLHA
  496.  
  497. ; move.l #MEMF_CHIP,TYPEOFMEM
  498. ; move.l #bordername,a0
  499. ; move.l #scrn,d0
  500. ; move.l #0,d1
  501. ; jsr QUEUEFILE
  502. ; 
  503. ; ifeq CHEESEY
  504. ; move.l #bordername,a0
  505. ; move.l #scrn2,d0
  506. ; move.l #0,d1
  507. ; jsr QUEUEFILE
  508. ; endc 
  509. ; 
  510. ; jsr FLUSHQUEUE
  511.  
  512.  ifne CHEESEY
  513.  
  514.  move.l scrn,scrn2
  515.  
  516.  endc
  517.  
  518. ************************************* 
  519.  
  520.     jsr PLAYTHEGAME
  521.     
  522. *************************************
  523.  move.l scrn,a1
  524.  move.l #10240*8,d0
  525.  move.l 4.w,a6
  526.  jsr -210(a6)
  527.  ifeq CHEESEY
  528.  move.l scrn2,a1
  529.  move.l #10240*8,d0
  530.  move.l 4.w,a6
  531.  jsr -210(a6)
  532.  endc
  533. *************************************
  534.  
  535. ; bsr FREEBOTMEM 
  536.  
  537. ; bra QUITTT
  538.  
  539.  tst.b FINISHEDLEVEL
  540.  beq dontusestats
  541.  
  542.  move.l #MASTERPLAYERONEHEALTH,a0
  543.  move.l #MASTERPLAYERONESHIELD,a1
  544.  move.l #PLAYERONEHEALTH,a2
  545.  move.l #PLAYERONESHIELD,a3
  546.  
  547.  REPT 11 
  548.  move.l (a2)+,(a0)+
  549.  ENDR
  550.  
  551.  REPT 6 
  552.  move.l (a3)+,(a1)+
  553.  ENDR
  554.  
  555. dontusestats:
  556.  
  557. ; bsr PASSLINETOGAME
  558. ; bsr GETSTATS
  559.  
  560. ; bsr GETTITLEMEM
  561. ; bsr CLROPTSCRN
  562. ; bsr SETUPTITLESCRN
  563.  
  564. ; move.l #TITLESCRNNAME2,TITLESCRNPTR
  565. ; bsr LOADTITLESCRN2
  566. ; move.w #$7201,titleplanes
  567.  
  568. ; move.w #$20,$dff1dc
  569. ; move.l #titlecop,$dff080
  570. ; move.w #$87c0,$dff000+dmacon
  571. ; move.w #$8020,$dff000+dmacon 
  572.  
  573. ; move.w #0,FADEVAL
  574. ; move.w #31,FADEAMOUNT
  575. ; bsr FADEUPTITLE
  576.  
  577. ; move.w #23,FADEAMOUNT
  578. ; bsr FADEDOWNTITLE 
  579.  
  580. ; IFEQ CD32VER
  581. ; jsr KInt_Init
  582. ; ENDC
  583.  
  584.  jsr mnu_GETBLITINT
  585.  jsr mnu_setscreen
  586.  
  587.  
  588.  bra BACKTOMENU
  589.  
  590. QUITTT:
  591.  
  592.  move.l LEVELDATA,d1
  593.  move.l d1,a1
  594.  move.l #120000,d0
  595.  move.l 4.w,a6
  596.  jsr -210(a6)
  597.  
  598.  move.l TEXTSCRN,d1
  599.  move.l d1,a1
  600.  move.l #10240*2,d0
  601.  move.l 4.w,a6
  602.  jsr -210(a6)
  603.  
  604.  move.l FASTBUFFER,d1    
  605.  move.l #2*320*256,d0
  606.  move.l 4.w,a6
  607.  jsr -210(a6)
  608.  
  609. ; jsr RELEASEWALLMEM
  610.  jsr RELEASESAMPMEM
  611.  jsr RELEASEFLOORMEM
  612.  jsr RELEASEOBJMEM
  613.   
  614.  move.l old,$dff080
  615.  move.l 4.w,a6
  616.  lea VBLANKInt,a1
  617.  moveq #INTB_COPER,d0
  618.  jsr _LVORemIntServer(a6)
  619.  
  620.  move.l 4.w,a6
  621.  lea KEYInt,a1
  622.  moveq #INTB_PORTS,d0
  623.  jsr _LVORemIntServer(a6)
  624.  
  625.  move.w #$f8e,$dff1dc
  626.  
  627.  move.l old,$dff080
  628.  move.w _storeint,d0
  629.  or.w d0,$dff000+intena
  630.  
  631. ; move.l    4.w,a6
  632. ; jsr    _LVOPermit(a6)
  633.  
  634.  
  635.  move.l #0,d0
  636.  
  637.  rts
  638.  
  639. SSTACK: dc.l 0
  640.  
  641. backpicname: dc.b "tkg1:includes/rawbackpacked"
  642.   dc.b 0
  643.  
  644. bordername: dc.b "TKG2:includes/newborderRAW",0
  645.  even
  646. borderpacked: incbin "ab3:includes/newborderPACKED"
  647.  
  648. ; KEY OPTIONS:
  649. CONTROLBUFFER:
  650. turn_left_key:
  651.  dc.b $4f
  652. turn_right_key:
  653.  dc.b $4e
  654. forward_key:
  655.  dc.b $4c
  656. backward_key:
  657.  dc.b $4d
  658. fire_key:
  659.  dc.b $65
  660. operate_key:
  661.  dc.b $40
  662. run_key:
  663.  dc.b $61
  664. force_sidestep_key:
  665.  dc.b $67
  666. sidestep_left_key:
  667.  dc.b $39
  668. sidestep_right_key:
  669.  dc.b $3a
  670. duck_key:
  671.  dc.b $22
  672. look_behind_key:
  673.  dc.b $28
  674. jump_key:
  675.  dc.b $f
  676. look_up_key:
  677.  dc.b 27
  678. look_down_key:
  679.  dc.b 42
  680. centre_view_key:
  681.  dc.b 41
  682. next_weapon_key:
  683.  dc.b 68
  684.  
  685. templeftkey: dc.b 0
  686. temprightkey: dc.b 0
  687. tempslkey: dc.b 0 
  688. tempsrkey: dc.b 0
  689.  
  690.  even 
  691.  
  692. GETSTATS:
  693. ; CHANGE PASSWORD INTO RAW DATA
  694.  
  695.  rts
  696.  
  697.  
  698. SETPLAYERS:
  699.  
  700.  move.w PLOPT,d0
  701.  add.b #'a',d0
  702.  move.b d0,LEVA
  703.  move.b d0,LEVB
  704.  move.b d0,LEVC
  705.  move.b d0,LEVD
  706.  move.b d0,LEVE
  707.  
  708.  clr.b NASTY
  709.  
  710.  cmp.b #'2',WHICHAMI
  711.  blt.s PLAYER1setup
  712.  beq.s PLAYER2setup
  713.  bgt PLAYER3setup
  714.  
  715.  rts
  716.  
  717. PLAYER1setup:
  718.  move.w PLOPT,d0
  719.  move.w #$f,backc
  720.  jsr SENDFIRST
  721.  move.w #$f0,backc
  722.  
  723.  move.w Rand1,d0
  724.  jsr SENDFIRST
  725.  move.w #$f0f,backc 
  726.  rts
  727.  
  728. SHOVELEV macro
  729.  move.w PLOPT,d0
  730.  add.b #'a',d0
  731.  move.b d0,LEVA
  732.  move.b d0,LEVB
  733.  move.b d0,LEVC
  734.  move.b d0,LEVD
  735.  move.b d0,LEVE 
  736.  endm
  737.  
  738. PLAYER2setup:
  739.  
  740.  cmp.b #'2',HOWMANY
  741.  beq.s .Imlast 
  742.  
  743.  move.w #$f,backc
  744.  jsr RECFIRST
  745.  move.w d0,PLOPT
  746.  move.w #$f0,backc
  747.  
  748.  jsr SENDPAR
  749.  move.w #$f0f,backc
  750.  
  751.  jsr RECFIRST
  752.  move.w #$ff0,backc
  753.  move.w d0,Rand1
  754.  jsr SENDPAR
  755.  move.w #$fff,backc
  756.  
  757.  SHOVELEV
  758.  
  759.  rts
  760.  
  761. .Imlast:
  762.  jsr RECFIRST
  763.  move.w d0,PLOPT
  764.  jsr RECFIRST
  765.  move.w d0,Rand1
  766.  
  767.  SHOVELEV
  768.  
  769.  rts
  770.  
  771. PLAYER3setup:
  772.  
  773.  cmp.b #'3',HOWMANY
  774.  beq.s .Imlast
  775.  
  776.  jsr RECPAR
  777.  move.w d0,PLOPT
  778.  jsr SENDFIRST
  779.  
  780.  jsr RECPAR
  781.  move.w d0,Rand1
  782.  jsr SENDFIRST
  783.  
  784.  SHOVELEV
  785.  
  786. .Imlast
  787.  
  788.  jsr RECPAR
  789.  move.w d0,PLOPT
  790.  
  791.  jsr RECPAR
  792.  move.w d0,Rand1
  793.  
  794.  SHOVELEV
  795.  
  796.  rts
  797.  
  798.  cmp.b #'s',mors
  799.  beq SLAVESETUP
  800.  cmp.b #'m',mors
  801.  beq MASTERSETUP
  802.  st NASTY
  803. onepla:
  804.  rts
  805.  
  806. NASTY: dc.w 0
  807.  
  808. MASTERSETUP:
  809.  clr.b NASTY
  810.  move.w PLOPT,d0
  811.  jsr SENDFIRST
  812.  
  813.  move.w Rand1,d0
  814.  jsr SENDFIRST
  815.  
  816.  bsr TWOPLAYER
  817.  rts
  818.  
  819. SLAVESETUP:
  820.  CLR.B NASTY
  821.  jsr RECFIRST
  822.  move.w d0,PLOPT
  823.  add.b #'a',d0
  824.  move.b d0,LEVA
  825.  move.b d0,LEVB
  826.  move.b d0,LEVC
  827.  move.b d0,LEVD
  828.  move.b d0,LEVE
  829.  
  830.  jsr RECFIRST
  831.  move.w d0,Rand1
  832.  bsr TWOPLAYER
  833.  
  834.  
  835.  rts
  836.      
  837. ********************************************************
  838.  
  839. ASKFORDISK:
  840.  lea RVAL1+300(pc),a0
  841.  lea RVAL2+900(pc),a1
  842.  PRSDD
  843.  move.w #10,OptScrn
  844.  bsr DRAWOPTSCRN
  845.  
  846. ProtChkNLev1:
  847. .wtrel:
  848.  btst #7,$bfe001
  849.  beq.s .wtrel
  850.  
  851. wtclick:
  852.  add.w #$235,-300(a0)
  853.  add.w #$4533,-900(a0)
  854.  btst #6,$bfe001
  855.  bne.s wtclick
  856.  
  857.  rts
  858.  
  859. CLRSPRITES: 
  860.  move.l #nullspr,d0
  861.  move.w d0,tsp0l
  862.  move.w d0,tsp1l
  863.  move.w d0,tsp2l
  864.  move.w d0,tsp3l
  865.  move.w d0,tsp4l
  866.  move.w d0,tsp5l
  867.  move.w d0,tsp6l
  868.  move.w d0,tsp7l
  869.  swap d0
  870.  move.w d0,tsp0h
  871.  move.w d0,tsp1h
  872.  move.w d0,tsp2h
  873.  move.w d0,tsp3h
  874.  move.w d0,tsp4h
  875.  move.w d0,tsp5h
  876.  move.w d0,tsp6h
  877.  move.w d0,tsp7h 
  878.  rts
  879.  
  880. ********************************************************
  881.  
  882. READMAINMENU:
  883.  
  884.  move.b #'n',mors
  885.  
  886.  move.w MAXLEVEL,d0
  887.  
  888.  
  889.  move.l #mnu_CURRENTLEVELLINE,a1
  890.  muls #40,d0
  891.  move.l LINKFILE,a0
  892.  add.l #LevelName,a0
  893.  add.l d0,a0
  894.  bsr PUTINLINE
  895.  
  896. ; Stay here until 'play game' is selected.
  897.  
  898. ; move.w #0,OptScrn
  899. ; bsr DRAWOPTSCRN
  900. ; move.w #0,OPTNUM
  901.  
  902.  lea mnu_MYMAINMENU,a0
  903.  bsr MYOPENMENU
  904.  
  905. .rdlop:
  906.  lea mnu_MYMAINMENU,a0
  907.  bsr CHECKMENU
  908.  
  909. ; tst.w d0
  910. ; blt.s .rdlop
  911.  
  912. ; tst.w d0
  913. ; bne.s .nonextlev
  914. ; move.w LEVELSELECTED,d0
  915. ; add.w #1,d0
  916. ; cmp.w MAXLEVEL,d0
  917. ; blt .nowrap
  918. ; moveq #0,d0
  919. ;.nowrap:
  920. ; and.w #$f,d0
  921. ; move.w d0,LEVELSELECTED
  922. ; move.l #CURRENTLEVELLINE,a1
  923. ; muls #40,d0
  924. ; move.l #LEVEL_OPTS,a0
  925. ; add.l d0,a0
  926. ; bsr PUTINLINE
  927. ; bsr JUSTDRAWIT
  928. ; bra .rdlop
  929.  
  930. .nonextlev:
  931.  
  932.  cmp.w #1,d0
  933.  bne .noopt
  934.  
  935.  bra MASTERMENU
  936.  
  937. .noopt:
  938.  
  939. ; cmp.w #5,d0
  940. ; bne.s .noqui
  941. ; st SHOULDQUIT
  942. ; bra playgame
  943. ;.noqui
  944.  
  945.  cmp.w #2,d0
  946.  beq playgame
  947.  
  948.  cmp.w #3,d0
  949.  bne .nocontrol
  950.  
  951.  bsr CHANGECONTROLS
  952.  
  953. ; move.w #0,OptScrn
  954. ; bsr DRAWOPTSCRN
  955. ; move.w #0,OPTNUM
  956.  
  957.  lea mnu_MYMAINMENU,a0
  958.  bsr MYOPENMENU
  959.  
  960.  bsr WAITREL
  961.  bra .rdlop
  962.  
  963. .nocontrol:
  964.  
  965. ********************************
  966.  
  967.  cmp.w #4,d0
  968.  bne .nocred
  969. ; bsr SHOWCREDITS
  970. ; move.w #0,OptScrn
  971. ; bsr DRAWOPTSCRN
  972. ; move.w #1,OPTNUM
  973. ;
  974. ; bsr HIGHLIGHT
  975. ;
  976. ; bsr WAITREL
  977. ; bra .rdlop
  978.  
  979.  jsr mnu_viewcredz
  980.  lea mnu_MYMAINMENU,a0
  981.  bsr MYOPENMENU
  982.  
  983.  bra .rdlop
  984.  
  985. ********************************
  986.  
  987. .nocred:
  988.  
  989.  cmp.w #5,d0
  990.  bne .noload
  991.  
  992.  jsr LOADPOSITION
  993.  
  994. ; move.w #0,OptScrn
  995. ; bsr DRAWOPTSCRN
  996. ; move.w #1,OPTNUM
  997.  
  998.  lea mnu_MYMAINMENU,a0
  999.  bsr MYOPENMENU
  1000.  
  1001.  bsr WAITREL
  1002.  bra .rdlop
  1003.  
  1004. .noload:
  1005.  cmp.w #6,d0
  1006.  bne playgame
  1007.  bsr WAITREL
  1008.  
  1009.  jsr SAVEPOSITION
  1010.  
  1011. ; move.w #0,OptScrn
  1012. ; bsr DRAWOPTSCRN
  1013. ; move.w #1,OPTNUM
  1014. ;
  1015. ; bsr HIGHLIGHT
  1016.  
  1017.  lea mnu_MYMAINMENU,a0
  1018.  bsr MYOPENMENU
  1019.  
  1020.  bsr WAITREL
  1021.  bra .rdlop
  1022.  
  1023.  
  1024. ;
  1025. ; move.l #PASSWORDLINE+12,a0
  1026. ; moveq #15,d2
  1027. ;.clrline:
  1028. ; move.b #32,(a0)+
  1029. ; dbra d2,.clrline 
  1030. ; move.w #0,OptScrn
  1031. ; bsr DRAWOPTSCRN
  1032. ;
  1033. ; IFEQ CD32VER
  1034. ; clr.b lastpressed
  1035. ; move.l #PASSWORDLINE+12,a0
  1036. ; move.w #0,d1
  1037. ;.ENTERPASS:
  1038. ; tst.b lastpressed
  1039. ; beq .ENTERPASS
  1040. ; move.b lastpressed,d2
  1041. ; move.b #0,lastpressed
  1042. ; move.l #KVALTOASC,a1
  1043. ; 
  1044. ; cmp.l #'<-- ',(a1,d2.w*4)
  1045. ; bne .nodel
  1046. ;
  1047. ; tst.b d1
  1048. ; beq .nodel
  1049. ;
  1050. ; subq #1,d1
  1051. ; move.b #32,-(a0)
  1052. ; movem.l d0-d7/a0-a6,-(a7)
  1053. ; bsr JUSTDRAWIT
  1054. ; movem.l (a7)+,d0-d7/a0-a6
  1055. ; bra .ENTERPASS
  1056. ;
  1057. ;.nodel:
  1058. ; 
  1059. ; cmp.l #'RTN ',(a1,d2.w*4)
  1060. ; beq .FORGETIT
  1061. ; cmp.l #'ESC ',(a1,d2.w*4)
  1062. ; beq .FORGETIT
  1063. ; move.b 1(a1,d2.w*4),d2
  1064. ; cmp.b #65,d2
  1065. ; blt .ENTERPASS
  1066. ; cmp.b #'Z',d2
  1067. ; bgt .ENTERPASS
  1068. ; move.b d2,(a0)+
  1069. ; move.w #0,OptScrn
  1070. ; movem.l d0-d7/a0-a6,-(a7)
  1071. ; bsr JUSTDRAWIT
  1072. ; movem.l (a7)+,d0-d7/a0-a6
  1073. ; add.w #1,d1
  1074. ; cmp.w #16,d1
  1075. ; blt .ENTERPASS
  1076. ;
  1077. ; ENDC
  1078. ; IFNE CD32VER
  1079. ; move.l #PASSWORDLINE+12,a0
  1080. ; move.w #15,d0
  1081. ;.ENTERPASS:
  1082. ; bsr GETACHAR
  1083. ; dbra d0,.ENTERPASS
  1084. ; ENDC
  1085. ;
  1086. ; bsr PASSLINETOGAME
  1087. ; tst.w d0
  1088. ; bne .FORGETIT
  1089. ; 
  1090. ; bsr GETSTATS
  1091. ; move.w MAXLEVEL,d0
  1092. ; move.l #CURRENTLEVELLINE,a1
  1093. ; muls #40,d0
  1094. ; move.l #LEVEL_OPTS,a0
  1095. ; add.l d0,a0
  1096. ; bsr PUTINLINE
  1097. ;
  1098. ;.FORGETIT:
  1099. ; bsr WAITREL
  1100. ; bsr CALCPASSWORD
  1101. ;
  1102. ; move.w #0,OptScrn
  1103. ; bsr DRAWOPTSCRN
  1104. ;
  1105. ; move.w #1,OPTNUM
  1106. ;
  1107. ; bsr HIGHLIGHT
  1108. ;
  1109. ; bra .rdlop 
  1110.  
  1111. playgame:
  1112.  move.w MAXLEVEL,PLOPT
  1113.  rts
  1114.  
  1115. SHOULDQUIT: dc.w 0
  1116.  
  1117. LEVELSELECTED:
  1118.  dc.w 0
  1119.  
  1120.  IFNE CD32VER
  1121. GETACHAR:
  1122.  moveq #0,d7
  1123.  move.b #'A',(a0)
  1124.  movem.l d0-d7/a0-a6,-(a7)
  1125.  jsr JUSTDRAWIT
  1126.  movem.l (a7)+,d0-d7/a0-a6
  1127.  
  1128. .wtnum:
  1129.  btst #1,$dff00c
  1130.  sne d1
  1131.  btst #1,$dff00d
  1132.  sne d2
  1133.  btst #0,$dff00c
  1134.  sne d3
  1135.  btst #0,$dff00d
  1136.  sne d4
  1137.  
  1138.  eor.b d1,d3
  1139.  eor.b d2,d4
  1140.  
  1141.  tst.b d1
  1142.  beq.s .NODELETE
  1143.  cmp.w #15,d0
  1144.  beq.s .NODELETE
  1145.  move.b #32,(a0)
  1146.  subq #1,a0
  1147.  addq #1,d0
  1148.  move.b (a0),d7
  1149.  sub.b #'A',d7
  1150.  movem.l d0-d7/a0-a6,-(a7)
  1151.  jsr JUSTDRAWIT
  1152.  movem.l (a7)+,d0-d7/a0-a6
  1153.  jsr WAITFORNOPRESS
  1154.  bra .wtnum
  1155. .NODELETE
  1156.  
  1157.  tst.b d4
  1158.  bne.s .PREVNUM
  1159.  tst.b d3
  1160.  bne.s .NEXTNUM
  1161.  btst #7,$bfe001
  1162.  bne.s .wtnum
  1163.  addq #1,a0
  1164.  jsr WAITFORNOPRESS
  1165.  rts
  1166.  
  1167. .PREVNUM:
  1168.  subq #1,d7
  1169.  bge.s .nonegg
  1170.  moveq #15,d7
  1171. .nonegg:
  1172.  move.b d7,d1
  1173.  add.b #'A',d1
  1174.  move.b d1,(a0)
  1175.  movem.l d0-d7/a0-a6,-(a7)
  1176.  jsr JUSTDRAWIT
  1177.  movem.l (a7)+,d0-d7/a0-a6
  1178.  
  1179.  jsr WAITFORNOPRESS
  1180.  
  1181.  bra .wtnum
  1182.  
  1183. .NEXTNUM:
  1184.  addq #1,d7
  1185.  cmp.w #15,d7
  1186.  ble.s .nobigg
  1187.  moveq #0,d7
  1188. .nobigg:
  1189.  move.b d7,d1
  1190.  add.b #'A',d1
  1191.  move.b d1,(a0)
  1192.  movem.l d0-d7/a0-a6,-(a7)
  1193.  jsr JUSTDRAWIT
  1194.  movem.l (a7)+,d0-d7/a0-a6
  1195.  jsr WAITFORNOPRESS
  1196.  bra .wtnum
  1197.  rts
  1198.  ENDC
  1199.  
  1200.  
  1201. MASTERMENU:
  1202.  
  1203.  move.b #'m',mors
  1204.  
  1205.  move.w #0,LEVELSELECTED
  1206.  
  1207.  move.w #0,d0 
  1208.  move.l #mnu_CURRENTLEVELLINEM,a1
  1209.  muls #40,d0
  1210.  move.l LINKFILE,a0
  1211.  add.l #LevelName,a0
  1212.  add.l d0,a0
  1213.  bsr PUTINLINE
  1214.  
  1215. ; Stay here until 'play game' is selected.
  1216.  
  1217. ; move.w #4,OptScrn
  1218. ; bsr DRAWOPTSCRN
  1219. ; move.w #1,OPTNUM
  1220.  
  1221. ; bsr HIGHLIGHT
  1222. ; bsr WAITREL
  1223.  
  1224.  lea mnu_MYMASTERMENU,a0
  1225.  bsr MYOPENMENU
  1226.  
  1227. .rdlop:
  1228.  lea mnu_MYMASTERMENU,a0
  1229.  bsr CHECKMENU
  1230. ; tst.w d0
  1231. ; blt.s .rdlop
  1232. ; bsr WAITREL
  1233.  
  1234.  
  1235.  
  1236.  cmp.w #1,d0
  1237.  bne.s .nonextlev
  1238.  
  1239.  move.w LEVELSELECTED,d0
  1240.  add.w #1,d0
  1241.  cmp.w MAXLEVEL,d0
  1242.  blt .nowrap
  1243.  moveq #0,d0
  1244. .nowrap:
  1245. ; and.w #$f,d0
  1246.  move.w d0,LEVELSELECTED
  1247.  move.l #mnu_CURRENTLEVELLINEM,a1
  1248.  muls #40,d0
  1249.  move.l LINKFILE,a0
  1250.  add.l #LevelName,a0
  1251.  add.l d0,a0
  1252.  bsr PUTINLINE
  1253.  
  1254.  lea mnu_MYMASTERMENU,a0
  1255.  jsr mnu_redraw
  1256.  
  1257.  bra .rdlop
  1258.  
  1259. .nonextlev:
  1260.  
  1261.  cmp.w #2,d0
  1262.  beq .playgame
  1263.  
  1264.  cmp.w #0,d0
  1265.  bne .noopt
  1266.  
  1267.  bra SLAVEMENU
  1268.  
  1269. .noopt:
  1270.  
  1271.  cmp.w #3,d0
  1272.  bne .nocontrol
  1273.  
  1274.  bsr CHANGECONTROLS
  1275.  
  1276. ; move.w #4,OptScrn
  1277. ; bsr DRAWOPTSCRN
  1278. ; move.w #0,OPTNUM
  1279. ;
  1280. ; bsr HIGHLIGHT
  1281. ;
  1282. ; bsr WAITREL
  1283.  
  1284.  lea mnu_MYMASTERMENU,a0
  1285.  bsr MYOPENMENU
  1286.  
  1287.  bra .rdlop
  1288.  
  1289. .nocontrol:
  1290.  
  1291. .playgame
  1292.  
  1293.  move.w LEVELSELECTED,PLOPT
  1294.  rts
  1295.  
  1296. SLAVEMENU:
  1297.  
  1298.  move.b #'s',mors
  1299.  
  1300. ; Stay here until 'play game' is selected.
  1301.  
  1302.  lea mnu_MYSLAVEMENU,a0
  1303.  bsr MYOPENMENU
  1304.  
  1305. ; move.w #5,OptScrn
  1306. ; bsr DRAWOPTSCRN
  1307. ; move.w #1,OPTNUM
  1308. ;
  1309. ; bsr HIGHLIGHT
  1310. ;
  1311. ; bsr WAITREL
  1312. .rdlop:
  1313.  lea mnu_MYSLAVEMENU,a0
  1314.  bsr CHECKMENU
  1315.  tst.w d0
  1316.  blt.s .rdlop
  1317.  bsr WAITREL
  1318.  
  1319.  cmp.w #1,d0
  1320.  beq .playgame
  1321.  
  1322.  cmp.w #0,d0
  1323.  bne .noopt
  1324.  
  1325.  bra READMAINMENU
  1326.  
  1327. .noopt:
  1328.  
  1329.  cmp.w #2,d0
  1330.  bne .nocontrol
  1331.  
  1332.  bsr CHANGECONTROLS
  1333.  
  1334. ; move.w #5,OptScrn
  1335. ; bsr DRAWOPTSCRN
  1336. ; move.w #0,OPTNUM
  1337. ;
  1338. ; bsr HIGHLIGHT
  1339. ;
  1340. ; bsr WAITREL
  1341.  
  1342.  lea mnu_MYSLAVEMENU,a0
  1343.  bsr MYOPENMENU
  1344.  
  1345.  
  1346.  bra .rdlop
  1347.  
  1348. .nocontrol:
  1349. .playgame:
  1350.  
  1351.  rts
  1352.  
  1353. STATBACK: ds.w 34
  1354.  
  1355. TWOPLAYER:
  1356.  
  1357.  move.w #200,PLAYERONEHEALTH
  1358.  move.w #200,PLAYERTWOHEALTH
  1359.  
  1360.  move.w #0,PLAYERONEFUEL
  1361.  
  1362.  st.b PLAYERONEGUNS+1
  1363.  st.b PLAYERONEGUNS+3
  1364.  st.b PLAYERONEGUNS+5
  1365.  st.b PLAYERONEGUNS+7
  1366.  st.b PLAYERONEGUNS+9
  1367.  st.b PLAYERONEGUNS+11
  1368.  st.b PLAYERONEGUNS+13
  1369.  st.b PLAYERONEGUNS+15
  1370.  st.b PLAYERONEGUNS+17
  1371.  st.b PLAYERONEGUNS+19
  1372.  
  1373.  st.b PLAYERONEJETPACK+1
  1374.  
  1375.  st.b PLAYERTWOGUNS+1
  1376.  st.b PLAYERTWOGUNS+3
  1377.  st.b PLAYERTWOGUNS+5
  1378.  st.b PLAYERTWOGUNS+7
  1379.  st.b PLAYERTWOGUNS+9
  1380.  st.b PLAYERTWOGUNS+11
  1381.  st.b PLAYERTWOGUNS+13
  1382.  st.b PLAYERTWOGUNS+15
  1383.  st.b PLAYERTWOGUNS+17
  1384.  st.b PLAYERTWOGUNS+19
  1385.  
  1386.  move.w #0,PLAYERTWOFUEL
  1387.  
  1388.  st.b PLAYERTWOJETPACK+1
  1389.  
  1390.  move.l #PLAYERONEAMMO,a0
  1391.  move.l #PLAYERTWOAMMO,a1
  1392.  move.w #19,d1
  1393. .putinvals
  1394.  jsr GetRand
  1395.  and.w #63,d0
  1396.  add.w #5,d0
  1397.  move.w d0,(a0)+
  1398.  move.w d0,(a1)+
  1399.  dbra d1,.putinvals
  1400.  
  1401.  rts
  1402.  
  1403.  move.w #0,OldEnergy
  1404.  move.w #127,Energy
  1405.  jsr EnergyBar
  1406.  
  1407.  move.w #63,OldAmmo
  1408.  move.w #0,Ammo
  1409.  jsr AmmoBar
  1410.  move.w #0,OldAmmo
  1411.  
  1412.  move.b #0,PLR1_GunSelected
  1413.  
  1414.  move.b #0,PLR2_GunSelected
  1415.  rts
  1416.  
  1417. newdum:
  1418.  rts
  1419.  
  1420. DEFAULTGAME:
  1421.  move.w #0,MAXLEVEL
  1422.  
  1423.  move.l #MASTERPLAYERONEHEALTH,a0
  1424.  move.l #MASTERPLAYERONESHIELD,a1
  1425.  move.l #0,(a0)+
  1426.  move.l #0,(a0)+
  1427.  move.l #0,(a0)+
  1428.  move.l #0,(a0)+
  1429.  move.l #0,(a0)+
  1430.  move.l #0,(a0)+
  1431.  move.l #0,(a0)+
  1432.  move.l #0,(a0)+
  1433.  move.l #0,(a0)+
  1434.  move.l #0,(a0)+
  1435.  move.l #0,(a0)+
  1436.  
  1437.  move.l #0,(a1)+
  1438.  move.l #0,(a1)+
  1439.  move.l #0,(a1)+
  1440.  move.l #0,(a1)+
  1441.  move.l #0,(a1)+
  1442.  move.l #0,(a1)+
  1443.  
  1444.  move.w #200,MASTERPLAYERONEHEALTH
  1445.  move.w #$ff,MASTERPLAYERONEGUNS
  1446.  
  1447.  move.l LINKFILE,a5
  1448.  add.l #GunBulletTypes,a5
  1449.  move.w (a5),d0
  1450.  
  1451.  move.l #MASTERPLAYERONEAMMO,a5
  1452.  move.w #20,(a5,d0.w*2)
  1453.  
  1454.  rts
  1455.  
  1456. CHKPROT: dc.w 0
  1457.  
  1458. GETPARITY:
  1459.  move.w #6,d3
  1460. .calcparity:
  1461.  btst d3,d0
  1462.  beq.s .nochange
  1463.  bchg #7,d0
  1464. .nochange:
  1465.  dbra d3,.calcparity
  1466.  rts
  1467.  
  1468. CHECKPARITY:
  1469.  move.w #6,d3
  1470.  move.b #$0,d2
  1471. .calcparity:
  1472.  btst d3,d0
  1473.  beq.s .nochange
  1474.  bchg #7,d2
  1475. .nochange:
  1476.  dbra d3,.calcparity
  1477.  move.b d0,d1
  1478.  and.b #$80,d1
  1479.  eor.b d1,d2
  1480.  sne.s d5
  1481.  rts
  1482.  
  1483. CALCPASSWORD:
  1484.  rts
  1485.  
  1486. PASSLINETOGAME:
  1487.  rts
  1488.  
  1489. illega:
  1490.  
  1491.  move.w #-1,d0
  1492.  
  1493.  rts
  1494.  
  1495. PASSBUFFER:
  1496.  ds.b 8
  1497.  
  1498. CHECKBUFFER: ds.b 8
  1499.  
  1500. PASS:
  1501.  ds.b 16
  1502.  
  1503. **************************************************
  1504.  
  1505. CHANGECONTROLS:
  1506.  
  1507. ; move.w #6,OptScrn
  1508. ; bsr DRAWOPTSCRN
  1509. ; move.w #0,OPTNUM
  1510. ; bsr HIGHLIGHT
  1511. ; bsr WAITREL
  1512.  
  1513.  lea mnu_MYCONTROLSONE,a0
  1514.  bsr MYOPENMENU
  1515.  
  1516. .rdlop:
  1517.  lea mnu_MYCONTROLSONE,a0
  1518.  bsr CHECKMENU
  1519.  
  1520. ; tst.w d0
  1521. ; blt.s .rdlop
  1522.  
  1523.  cmp.w #11,d0
  1524.  beq CHANGECONTROLS2
  1525.  
  1526.  move.l #KEY_LINES,a0
  1527.  move.w d0,d1
  1528.  muls #21,d1
  1529.  add.l d1,a0
  1530.  add.w #16,a0
  1531.  move.w #$2020,(a0)
  1532.  
  1533.  
  1534.  
  1535.  movem.l a0/d0,-(a7)
  1536.  
  1537.  lea mnu_MYCONTROLSONE,a0
  1538.  jsr mnu_redraw
  1539.  
  1540. *********************************************
  1541.         move.l    #mnu_buttonanim,mnu_frameptr
  1542.         jsr    mnu_getrawvalue
  1543.         move.l    #mnu_cursanim,mnu_frameptr
  1544. ***********************************************
  1545.  
  1546.  move.l #CONTROLBUFFER,a1
  1547.  moveq #0,d1
  1548.  move.b d0,d1
  1549.  
  1550.  movem.l (a7)+,d0/a0
  1551.  
  1552.  move.b d1,(a1,d0.w)
  1553. ; move.l #KVALTOASC,a1
  1554.  add.w #132,d1
  1555.  move.b d1,1(a0)
  1556. ; move.l (a1,d1.w*4),(a0)
  1557. ; bsr JUSTDRAWIT
  1558. ; bsr WAITREL
  1559.  lea mnu_MYCONTROLSONE,a0
  1560.  jsr mnu_redraw
  1561.  bra .rdlop
  1562.  
  1563. .backtomain:
  1564.  rts
  1565.  
  1566.  
  1567. CHANGECONTROLS2:
  1568.  lea mnu_MYCONTROLSTWO,a0
  1569.  bsr MYOPENMENU
  1570.  
  1571. .rdlop:
  1572.  lea mnu_MYCONTROLSTWO,a0
  1573.  bsr CHECKMENU
  1574.  
  1575. ; tst.w d0
  1576. ; blt.s .rdlop
  1577.  
  1578.  cmp.w #6,d0
  1579.  beq .backtomain
  1580.  
  1581.  move.l #KEY_LINES2,a0
  1582.  move.w d0,d1
  1583.  muls #21,d1
  1584.  add.l d1,a0
  1585.  add.w #16,a0
  1586.  move.w #$2020,(a0)
  1587.  
  1588.  movem.l a0/d0,-(a7)
  1589.  
  1590.  lea mnu_MYCONTROLSTWO,a0
  1591.  jsr mnu_redraw
  1592.  
  1593. **********************************************
  1594.         move.l    #mnu_buttonanim,mnu_frameptr
  1595.         jsr    mnu_getrawvalue
  1596.         move.l    #mnu_cursanim,mnu_frameptr
  1597. ***********************************************
  1598.  
  1599.  move.l #CONTROLBUFFER+11,a1
  1600.  moveq #0,d1
  1601.  move.b d0,d1
  1602.  
  1603.  movem.l (a7)+,d0/a0
  1604.  
  1605.  move.b d1,(a1,d0.w)
  1606. ; move.l #KVALTOASC,a1
  1607.  add.w #132,d1
  1608.  move.b d1,1(a0)
  1609. ; move.l (a1,d1.w*4),(a0)
  1610. ; bsr JUSTDRAWIT
  1611. ; bsr WAITREL
  1612.  lea mnu_MYCONTROLSTWO,a0
  1613.  jsr mnu_redraw
  1614.  bra .rdlop
  1615.  
  1616. .backtomain:
  1617.  rts
  1618.  rts
  1619.  
  1620. **************************************************
  1621.  
  1622.  
  1623. MAXLEVEL: dc.w 0
  1624.  
  1625. SHOWCREDITS:
  1626.  move.w #2,OptScrn
  1627.  bsr DRAWOPTSCRN
  1628.  move.w #0,OPTNUM
  1629.  bsr HIGHLIGHT
  1630.  
  1631.  bsr WAITREL
  1632.  
  1633. .rdlop:
  1634.  bsr CHECKMENU
  1635.  tst.w d0
  1636.  blt.s .rdlop
  1637.  
  1638.  bra READMAINMENU
  1639.  
  1640. HELDDOWN:
  1641.  dc.w 0
  1642.  
  1643. WAITREL:
  1644.  
  1645.  movem.l d0/d1/d2/d3,-(a7)
  1646.  
  1647.  move.l #KeyMap,a5
  1648. WAITREL2:
  1649.  btst #7,$bfe001
  1650.  beq.s WAITREL2
  1651.  
  1652.  IFEQ CD32VER
  1653.  tst.b $40(a5)
  1654.  bne.s WAITREL2
  1655.  tst.b $44(a5)
  1656.  bne.s WAITREL2
  1657.  tst.b $4c(a5)
  1658.  bne.s WAITREL2
  1659.  tst.b $4d(a5)
  1660.  bne.s WAITREL2
  1661.  ENDC
  1662.  
  1663.  btst #1,$dff00c
  1664.  sne d0
  1665.  btst #1,$dff00d
  1666.  sne d1
  1667.  btst #0,$dff00c
  1668.  sne d2
  1669.  btst #0,$dff00d
  1670.  sne d3
  1671.  
  1672.  eor.b d0,d2
  1673.  eor.b d1,d3
  1674.  tst.b d2
  1675.  bne.s WAITREL2
  1676.  tst.b d3
  1677.  bne.s WAITREL2
  1678.  
  1679.  
  1680.  movem.l (a7)+,d0/d1/d2/d3
  1681.  rts
  1682.  
  1683. PUTINLINE:
  1684.  moveq #19,d0
  1685. pill
  1686.  move.b (a0)+,(a1)+
  1687.  dbra d0,pill
  1688.  rts
  1689.  
  1690. MYOPENMENU:
  1691. .redraw:    move.l    a0,-(a7)
  1692.         jsr    mnu_openmenu        ; Open new menu
  1693.         move.l    (a7)+,a0
  1694.     rts
  1695.  
  1696. CHECKMENU:
  1697.  
  1698.     move.b #0,lastpressed
  1699.  
  1700. .loop:        movem.l    a0,-(a7)
  1701.         jsr    mnu_update
  1702.         movem.l    (a7)+,a0
  1703.         move.l    a0,-(a7)
  1704.         jsr    mnu_waitmenu        ; Wait for option
  1705.         move.l    (a7)+,a0
  1706.         moveq.l    #0,d2
  1707.         move.w    mnu_row,d2
  1708.         divu    14(a0),d2
  1709.         swap.w    d2
  1710.         move.w    d2,mnu_currentsel
  1711.  
  1712.          move.w d2,d0    ; option number
  1713.  
  1714.  rts
  1715.  
  1716. HIGHLIGHT:
  1717.  
  1718.  SAVEREGS
  1719.  
  1720.  move.w OptScrn,d0
  1721.  move.l #MENUDATA,a0
  1722.  move.l 4(a0,d0.w*8),a0
  1723.  move.w OPTNUM,d0
  1724.  lea (a0,d0.w*8),a0
  1725.  move.w (a0)+,d0    ;left
  1726.  move.w (a0)+,d1    ;top
  1727.  move.w (a0)+,d2    ;width
  1728.  
  1729.  muls #16*8,d1
  1730.  move.l OPTSPRADDR,a1
  1731.  add.w d1,a1
  1732.  add.w #8+16,a1
  1733.  move.l #SCRTOSPR2,a5
  1734.  adda.w d0,a5
  1735.  adda.w d0,a5
  1736.  
  1737. NOTLOP:
  1738.  
  1739.  move.w (a5)+,d3
  1740.  lea (a1,d3.w),a2
  1741.  not.b (a2)
  1742.  not.b 16(a2)
  1743.  not.b 32(a2)
  1744.  not.b 48(a2)
  1745.  not.b 64(a2)
  1746.  not.b 80(a2)
  1747.  not.b 96(a2)
  1748.  not.b 112(a2)
  1749.  not.b 128(a2)
  1750.  subq #1,d2
  1751.  bgt.s NOTLOP
  1752.  
  1753.  GETREGS
  1754.  rts
  1755.  
  1756. SCRTOSPR2:
  1757. val SET 0
  1758.  REPT 6
  1759.  dc.w val+0
  1760.  dc.w val+1
  1761.  dc.w val+2
  1762.  dc.w val+3
  1763.  dc.w val+4
  1764.  dc.w val+5
  1765.  dc.w val+6
  1766.  dc.w val+7
  1767. val SET val+258*16
  1768.  ENDR
  1769.  
  1770. CLROPTSCRN:
  1771.  
  1772.  move.l #$2cdfea,d0
  1773.  move.w (a4,d0.l),d0
  1774.  add.w d0,RVAL2
  1775.  
  1776.  move.l OPTSPRADDR,a0
  1777.  lea 16(a0),a1
  1778.  lea 16+(258*16)(a0),a2
  1779.  lea 16+(258*16*2)(a0),a3
  1780.  lea 16+(258*16*3)(a0),a4
  1781.  lea 258*16(a4),a0
  1782.  
  1783.  move.w #256,d0
  1784.  moveq #0,d1
  1785. CLRLOP:
  1786.  move.l d1,(a0)+
  1787.  move.l d1,(a0)+
  1788.  move.l d1,(a0)+
  1789.  move.l d1,(a0)+
  1790.  move.l d1,(a1)+
  1791.  move.l d1,(a1)+
  1792.  move.l d1,(a1)+
  1793.  move.l d1,(a1)+
  1794.  move.l d1,(a2)+
  1795.  move.l d1,(a2)+
  1796.  move.l d1,(a2)+
  1797.  move.l d1,(a2)+
  1798.  move.l d1,(a3)+
  1799.  move.l d1,(a3)+
  1800.  move.l d1,(a3)+
  1801.  move.l d1,(a3)+
  1802.  move.l d1,(a4)+
  1803.  move.l d1,(a4)+
  1804.  move.l d1,(a4)+
  1805.  move.l d1,(a4)+
  1806.  dbra d0,CLRLOP
  1807.  
  1808.  move.l OPTSPRADDR,a0
  1809.  move.w #44*256+64,(a0)
  1810.  move.w #44*256+2,8(a0)
  1811.  add.l #258*16,a0
  1812.  
  1813.  move.w #44*256+96,(a0)
  1814.  move.w #44*256+2,8(a0)
  1815.  add.l #258*16,a0
  1816.  
  1817.  move.w #44*256+128,(a0)
  1818.  move.w #44*256+2,8(a0)
  1819.  add.l #258*16,a0
  1820.  
  1821.  move.w #44*256+160,(a0)
  1822.  move.w #44*256+2,8(a0)
  1823.  add.l #258*16,a0
  1824.  
  1825.  move.w #44*256+192,(a0)
  1826.  move.w #44*256+2,8(a0)
  1827.  
  1828.  rts
  1829.  
  1830. DRAWOPTSCRN:
  1831.  rts
  1832.  
  1833.  bsr CLROPTSCRN
  1834.  
  1835. JUSTDRAWIT:
  1836.  
  1837.  move.l #font,a0
  1838.  move.l #MENUDATA,a1
  1839.  move.w OptScrn,d0
  1840.  move.l (a1,d0.w*8),a1
  1841.  
  1842.  move.l OPTSPRADDR,a3
  1843.  add.l #16,a3
  1844.  moveq #0,d2
  1845.  
  1846.  move.w #31,d0
  1847. linelop:
  1848.  move.w #39,d1
  1849.  move.l #SCRTOSPR,a4
  1850.  move.l a3,a2
  1851. charlop:
  1852.  move.b (a1)+,d2
  1853.  lea (a0,d2.w*8),a5
  1854.  move.b (a5)+,(a2)
  1855.  move.b (a5)+,16(a2)
  1856.  move.b (a5)+,32(a2)
  1857.  move.b (a5)+,48(a2)
  1858.  move.b (a5)+,64(a2)
  1859.  move.b (a5)+,80(a2)
  1860.  move.b (a5)+,96(a2)
  1861.  move.b (a5),112(a2)
  1862.  add.w (a4)+,a2
  1863.  dbra d1,charlop
  1864.  add.w #16*8,a3
  1865.  dbra d0,linelop
  1866.  
  1867.  rts
  1868.   
  1869. SCRTOSPR:
  1870.  dc.w 1,1,1,1,1,1,1,258*16-7
  1871.  dc.w 1,1,1,1,1,1,1,258*16-7
  1872.  dc.w 1,1,1,1,1,1,1,258*16-7
  1873.  dc.w 1,1,1,1,1,1,1,258*16-7
  1874.  dc.w 1,1,1,1,1,1,1,258*16-7
  1875.  dc.w 1,1,1,1,1,1,1,258*16-7
  1876.   
  1877. OPTNUM: dc.w 0
  1878. OptScrn: dc.w 0
  1879.  
  1880. SAVEGAMENAME: dc.b "tkg2:boot.dat",0
  1881.  even
  1882.  
  1883. SAVEGAMEPOS: dc.l 0
  1884. SAVEGAMELEN: dc.l 0
  1885.  
  1886. LOADPOSITION: 
  1887.  
  1888.  jsr mnu_clearscreen
  1889.  jsr mnu_DROPBLITINT 
  1890.  
  1891.  move.l #SAVEGAMENAME,a0
  1892.  move.l #SAVEGAMEPOS,d0
  1893.  move.l #SAVEGAMELEN,d1
  1894.  jsr INITQUEUE
  1895.  jsr QUEUEFILE
  1896.  jsr FLUSHQUEUE
  1897.  
  1898.  jsr mnu_GETBLITINT
  1899.  jsr mnu_setscreen
  1900.  
  1901.  
  1902.  move.l SAVEGAMEPOS,a2    ; address of first saved game.
  1903.  
  1904.  move.l #mnu_LSLOTA+21,a4
  1905.  
  1906.  move.l a2,a3
  1907.  add.w #2+(22*2)+(12*2),a3
  1908.  move.w #4,d7
  1909. .findlevs:
  1910.  
  1911.  move.l a4,a1
  1912.  move.w (a3),d1
  1913.  muls #40,d1
  1914.  move.l LINKFILE,a0
  1915.  add.l #LevelName,a0
  1916.  add.l d1,a0
  1917.  jsr PUTINLINE
  1918.  add.l #21,a4
  1919.  add.w #2+(22*2)+(12*2),a3
  1920.  
  1921.  dbra d7,.findlevs
  1922.  
  1923. ; move.w #8,OptScrn
  1924. ; move.w #0,OPTNUM
  1925.  
  1926. ; bsr DRAWOPTSCRN
  1927. ; bsr HIGHLIGHT
  1928. ; bsr WAITREL
  1929.  
  1930.  lea mnu_MYLOADMENU,a0
  1931.  bsr MYOPENMENU
  1932.  
  1933. .rdlop:
  1934.  lea mnu_MYLOADMENU,a0
  1935.  bsr CHECKMENU
  1936.  
  1937.  cmp.w #6,d0
  1938.  beq.s .noload
  1939.  
  1940.  move.l SAVEGAMEPOS,a0
  1941.  muls #2+(22*2)+(12*2),d0
  1942.  add.l d0,a0
  1943.  
  1944.  move.l #MASTERPLAYERONEHEALTH,a1
  1945.  move.w (a0)+,MAXLEVEL
  1946.  
  1947.  REPT 11
  1948.  move.l (a0)+,(a1)+
  1949.  ENDR
  1950.  REPT 6
  1951.  move.l (a0)+,(a1)+
  1952.  ENDR
  1953.  
  1954.  move.w MAXLEVEL,d0
  1955.  move.l #mnu_CURRENTLEVELLINE,a1
  1956.  muls #40,d0
  1957.  move.l LINKFILE,a0
  1958.  add.l #LevelName,a0
  1959.  add.l d0,a0
  1960.  bsr PUTINLINE
  1961.  
  1962. .noload:
  1963.  
  1964.  move.l SAVEGAMEPOS,a1
  1965.  move.l SAVEGAMELEN,d0
  1966.  CALLEXEC FreeMem
  1967.  
  1968.  rts
  1969.  
  1970. SAVEPOSITION:
  1971.  
  1972.  jsr mnu_clearscreen
  1973.  jsr mnu_DROPBLITINT 
  1974.  
  1975.  move.l #SAVEGAMENAME,a0
  1976.  move.l #SAVEGAMEPOS,d0
  1977.  move.l #SAVEGAMELEN,d1
  1978.  jsr INITQUEUE
  1979.  jsr QUEUEFILE
  1980.  jsr FLUSHQUEUE
  1981.  
  1982.  jsr mnu_GETBLITINT
  1983.  jsr mnu_setscreen
  1984.  
  1985.  move.l SAVEGAMEPOS,a2    ; address of first saved game.
  1986.  
  1987.  add.w #2+(22*2)+(12*2),a2
  1988.  
  1989.  move.l #mnu_SSLOTA,a4
  1990.  
  1991.  move.l a2,a3
  1992.  move.w #4,d7
  1993. .findlevs:
  1994.  
  1995.  move.l a4,a1
  1996.  move.w (a3),d1
  1997.  muls #40,d1
  1998.  move.l LINKFILE,a0
  1999.  add.l #LevelName,a0
  2000.  add.l d1,a0
  2001.  jsr PUTINLINE
  2002.  add.l #21,a4
  2003.  add.w #2+(22*2)+(12*2),a3
  2004.  
  2005.  dbra d7,.findlevs
  2006.  
  2007. ; move.w #9,OptScrn
  2008. ; move.w #0,OPTNUM
  2009.  
  2010. ; bsr DRAWOPTSCRN
  2011. ; bsr HIGHLIGHT
  2012. ; bsr WAITREL
  2013.  
  2014.  lea mnu_MYSAVEMENU,a0
  2015.  bsr MYOPENMENU
  2016.  
  2017. .rdlop:
  2018.  lea mnu_MYSAVEMENU,a0
  2019.  bsr CHECKMENU
  2020.  
  2021.  cmp.w #5,d0
  2022.  beq .nosave
  2023.  
  2024.  move.l d0,-(a7)
  2025.  
  2026.  jsr mnu_clearscreen
  2027.  jsr mnu_DROPBLITINT
  2028.  
  2029.  move.w #$83f0,$dff096
  2030.  
  2031.  move.l (a7)+,d0
  2032.  
  2033.  addq #1,d0
  2034.  
  2035.  move.l SAVEGAMEPOS,a0
  2036.  muls #2+(22*2)+(12*2),d0
  2037.  add.l d0,a0
  2038.  
  2039.  move.l #MASTERPLAYERONEHEALTH,a1
  2040.  move.w MAXLEVEL,(a0)+
  2041.  
  2042.  REPT 11
  2043.  move.l (a1)+,(a0)+
  2044.  ENDR
  2045.  REPT 6
  2046.  move.l (a1)+,(a0)+
  2047.  ENDR
  2048.   
  2049.  move.l oldcopper,$dff080
  2050.  move.w #$8020,$dff000+intena
  2051.  
  2052.  move.l _IntuitionBase,a6
  2053.  jsr _LVORemakeDisplay(a6)
  2054.  
  2055.  jsr _LVORethinkDisplay(a6)
  2056.  
  2057.  move.l doslib,a6
  2058.  move.l #SAVEGAMENAME,d1
  2059.  move.l #1006,d2
  2060.  jsr -30(a6)
  2061.  move.l d0,handle
  2062.  
  2063.  move.l doslib,a6
  2064.  move.l SAVEGAMEPOS,d2
  2065.  move.l handle,d1
  2066.  move.l SAVEGAMELEN,d3
  2067.  jsr _LVOWrite(a6)
  2068.  
  2069.  move.l doslib,a6
  2070.  move.l handle,d1
  2071.  jsr -36(a6)
  2072.  
  2073.  move.l doslib,a6
  2074.  move.l #200,d1
  2075.  jsr -198(a6) 
  2076.  
  2077.  move.w #$0020,$dff000+intena
  2078.  
  2079.  jsr mnu_GETBLITINT
  2080.  jsr mnu_setscreen
  2081.   
  2082. .nosave:
  2083.  
  2084.  move.l SAVEGAMEPOS,a1
  2085.  move.l SAVEGAMELEN,d0
  2086.  CALLEXEC FreeMem
  2087.  
  2088.  rts
  2089.  
  2090. MENUDATA:
  2091. ;0
  2092.  dc.l ONEPLAYERMENU_TXT
  2093.  dc.l ONEPLAYERMENU_OPTS
  2094. ;1
  2095.  dc.l INSTRUCTIONS_TXT
  2096.  dc.l INSTRUCTIONS_OPTS
  2097. ;2
  2098.  dc.l CREDITMENU_TXT
  2099.  dc.l CREDITMENU_OPTS
  2100. ;3
  2101.  dc.l ASKFORDISK_TXT
  2102.  dc.l ASKFORDISK_OPTS
  2103. ;4
  2104. ; dc.l ONEPLAYERMENU_TXT
  2105. ; dc.l ONEPLAYERMENU_OPTS
  2106.  dc.l MASTERPLAYERMENU_TXT
  2107.  dc.l MASTERPLAYERMENU_OPTS
  2108. ;5
  2109.  dc.l SLAVEPLAYERMENU_TXT
  2110.  dc.l SLAVEPLAYERMENU_OPTS
  2111. ;6
  2112.  dc.l CONTROL_TXT
  2113.  dc.l CONTROL_OPTS
  2114. ;7
  2115.  dc.l PROTMENU_TXT
  2116.  dc.l CONTROL_OPTS
  2117. ;8
  2118.  dc.l LOADMENU_TXT
  2119.  dc.l LOADMENU_OPTS
  2120. ;9
  2121.  dc.l SAVEMENU_TXT
  2122.  dc.l SAVEMENU_OPTS
  2123. ;10
  2124.  dc.l LEVELDISK_TXT
  2125.  dc.l ASKFORDISK_OPTS
  2126.  
  2127.  
  2128. EMPTYSLOTNAME:
  2129. ;      0123456789012345678901234567890123456789
  2130.  dc.b '               EMPTY SLOT               ' 
  2131.  
  2132. LOADMENU_TXT: 
  2133. ;      0123456789012345678901234567890123456789
  2134.  dc.b '                                        ' ;0
  2135.  dc.b '                                        ' ;1
  2136.  dc.b '                                        ' ;2
  2137.  dc.b '                                        ' ;3
  2138.  dc.b '         LOAD A SAVED POSITION:         ' ;4
  2139.  dc.b '                                        ' ;5
  2140.  dc.b '                                        ' ;6
  2141.  dc.b '                                        ' ;7
  2142.  dc.b '                                        ' ;8
  2143. LSLOTA:
  2144.  dc.b '                                        ' ;9
  2145.  dc.b '                                        ' ;0
  2146. LSLOTB:
  2147.  dc.b '                                        ' ;1
  2148.  dc.b '                                        ' ;2
  2149. LSLOTC:
  2150.  dc.b '                                        ' ;3
  2151.  dc.b '                                        ' ;4
  2152. LSLOTD:
  2153.  dc.b '                                        ' ;5
  2154.  dc.b '                                        ' ;6
  2155. LSLOTE:
  2156.  dc.b '                                        ' ;7
  2157.  dc.b '                                        ' ;8
  2158. LSLOTF:
  2159.  dc.b '                                        ' ;9
  2160.  dc.b '                                        ' ;0
  2161.  dc.b '               * CANCEL *               ' ;1
  2162.  dc.b '                                        ' ;2
  2163.  dc.b '                                        ' ;3
  2164.  dc.b '                                        ' ;4
  2165.  dc.b '                                        ' ;5
  2166.  dc.b '                                        ' ;6
  2167.  dc.b '                                        ' ;7
  2168.  dc.b '                                        ' ;8
  2169.  dc.b '                                        ' ;9
  2170.  dc.b '                                        ' ;0
  2171.  dc.b '                                        ' ;1
  2172.  
  2173. LOADMENU_OPTS:
  2174.  dc.w 0,9,40,1
  2175.  dc.w 0,11,40,1
  2176.  dc.w 0,13,40,1
  2177.  dc.w 0,15,40,1
  2178.  dc.w 0,17,40,1
  2179.  dc.w 0,19,40,1
  2180.  dc.w 14,21,12,1
  2181.  dc.w -1
  2182.  
  2183. LEVELDISK_TXT:
  2184. ;      0123456789012345678901234567890123456789
  2185.  dc.b '                                        ' ;0
  2186.  dc.b '                                        ' ;0
  2187.  dc.b '                                        ' ;0
  2188.  dc.b '                                        ' ;0
  2189.  dc.b '                                        ' ;0
  2190.  dc.b '                                        ' ;0
  2191.  dc.b '                                        ' ;0
  2192.  dc.b '                                        ' ;0
  2193.  dc.b '                                        ' ;0
  2194.  dc.b '                                        ' ;0
  2195.  dc.b '                                        ' ;0
  2196.  dc.b '  IF PLAYING FROM DISK, PLEASE INSERT   ' ;0
  2197.  dc.b '       LEVELS DISK IN DRIVE DF0:        ' ;0
  2198.  dc.b '                                        ' ;0
  2199.  dc.b '     PRESS MOUSE BUTTON WHEN READY..    ' ;0
  2200.  dc.b '                                        ' ;0
  2201.  dc.b '                                        ' ;0
  2202.  dc.b '                                        ' ;0
  2203.  dc.b '                                        ' ;0
  2204.  dc.b '                                        ' ;0
  2205.  dc.b '                                        ' ;0
  2206.  dc.b '                                        ' ;0
  2207.  dc.b '                                        ' ;0
  2208.  dc.b '                                        ' ;0
  2209.  dc.b '                                        ' ;0
  2210.  dc.b '                                        ' ;0
  2211.  dc.b '                                        ' ;0
  2212.  dc.b '                                        ' ;0
  2213.  dc.b '                                        ' ;0
  2214.  dc.b '                                        ' ;0
  2215.  dc.b '                                        ' ;0
  2216.  dc.b '                                        ' ;0
  2217.  
  2218.  
  2219. SAVEMENU_TXT: 
  2220. ;      0123456789012345678901234567890123456789
  2221.  dc.b '                                        ' ;0
  2222.  dc.b '                                        ' ;1
  2223.  dc.b '                                        ' ;2
  2224.  dc.b '                                        ' ;3
  2225.  dc.b '         SAVE CURRENT POSITION:         ' ;4
  2226.  dc.b '                                        ' ;5
  2227.  dc.b '                                        ' ;6
  2228.  dc.b '                                        ' ;7
  2229.  dc.b '                                        ' ;8
  2230. SSLOTA:
  2231.  dc.b '                                        ' ;9
  2232.  dc.b '                                        ' ;0
  2233. SSLOTB:
  2234.  dc.b '                                        ' ;1
  2235.  dc.b '                                        ' ;2
  2236. SSLOTC:
  2237.  dc.b '                                        ' ;3
  2238.  dc.b '                                        ' ;4
  2239. SSLOTD:
  2240.  dc.b '                                        ' ;5
  2241.  dc.b '                                        ' ;6
  2242. SSLOTE:
  2243.  dc.b '                                        ' ;7
  2244.  dc.b '                                        ' ;8
  2245. SSLOTF:
  2246.  dc.b '                                        ' ;9
  2247.  dc.b '                                        ' ;0
  2248.  dc.b '               * CANCEL *               ' ;1
  2249.  dc.b '                                        ' ;2
  2250.  dc.b '                                        ' ;3
  2251.  dc.b '                                        ' ;4
  2252.  dc.b '                                        ' ;5
  2253.  dc.b '                                        ' ;6
  2254.  dc.b '                                        ' ;7
  2255.  dc.b '                                        ' ;8
  2256.  dc.b '                                        ' ;9
  2257.  dc.b '                                        ' ;0
  2258.  dc.b '                                        ' ;1
  2259.  
  2260. SAVEMENU_OPTS:
  2261.  dc.w 0,9,40,1
  2262.  dc.w 0,11,40,1
  2263.  dc.w 0,13,40,1
  2264.  dc.w 0,15,40,1
  2265.  dc.w 0,17,40,1
  2266.  dc.w 0,19,40,1
  2267.  dc.w 14,21,12,1
  2268.  dc.w -1
  2269.  
  2270.  
  2271. ASKFORDISK_TXT:
  2272. ;      0123456789012345678901234567890123456789
  2273.  dc.b '                                        ' ;0
  2274.  dc.b '                                        ' ;1
  2275.  dc.b '                                        ' ;2
  2276.  dc.b '                                        ' ;3
  2277.  dc.b '                                        ' ;4
  2278.  dc.b '                                        ' ;5
  2279.  dc.b '                                        ' ;6
  2280.  dc.b '                                        ' ;7
  2281.  dc.b '                                        ' ;8
  2282.  dc.b '                                        ' ;9
  2283.  dc.b '                                        ' ;0
  2284.  dc.b '                                        ' ;1
  2285.  dc.b '                                        ' ;2
  2286.  dc.b '         PLEASE INSERT VOLUME:          ' ;3
  2287.  dc.b '                                        ' ;4
  2288. VOLLINE:
  2289.  dc.b '                                        ' ;9
  2290.  dc.b '                                        ' ;9
  2291.  dc.b '          PRESS MOUSE BUTTON            ' ;5
  2292.  dc.b '          WHEN DISK ACTIVITY            ' ;6
  2293.  dc.b '               FINISHES                 ' ;7
  2294.  dc.b '                                        ' ;8
  2295.  dc.b '                                        ' ;1
  2296.  dc.b '                                        ' ;2
  2297.  dc.b '                                        ' ;3
  2298.  dc.b '                                        ' ;4
  2299.  dc.b '                                        ' ;5
  2300.  dc.b '                                        ' ;6
  2301.  dc.b '                                        ' ;7
  2302.  dc.b '                                        ' ;8
  2303.  dc.b '                                        ' ;9
  2304.  dc.b '                                        ' ;0
  2305.  dc.b '                                        ' ;1
  2306.  
  2307. ASKFORDISK_OPTS:
  2308.  dc.w -1
  2309.  
  2310.  
  2311. ONEPLAYERMENU_TXT:
  2312. ;      0123456789012345678901234567890123456789
  2313.  dc.b '                                        ' ;0
  2314.  dc.b '                                        ' ;1
  2315.  dc.b '                                        ' ;2
  2316.  dc.b '                                        ' ;3
  2317.  dc.b '                                        ' ;4
  2318.  dc.b '                                        ' ;5
  2319.  dc.b '                                        ' ;6
  2320.  dc.b '                                        ' ;7
  2321.  dc.b '                                        ' ;8
  2322.  dc.b '                                        ' ;9
  2323.  dc.b '                                        ' ;0
  2324. CURRENTLEVELLINE:
  2325.  dc.b '         *** A.F DEMO LEVEL ***         ' ;1 
  2326.  dc.b '                                        ' ;2
  2327.  dc.b '                1 PLAYER                ' ;3
  2328.  dc.b '                                        ' ;4
  2329.  dc.b '               PLAY  GAME               ' ;5
  2330.  dc.b '                                        ' ;6
  2331.  dc.b '            CONTROL  OPTIONS            ' ;7
  2332.  dc.b '                                        ' ;8
  2333.  dc.b '              GAME CREDITS              ' ;9
  2334.  dc.b '                                        ' ;0
  2335.  dc.b '             LOAD  POSITION             ' ;1
  2336.  dc.b '                                        ' ;2
  2337. PASSWORDLINE:
  2338.  dc.b '             SAVE  POSITION             ' ;1
  2339.  dc.b '                                        ' ;4
  2340.  dc.b '                                        ' ;6
  2341.  dc.b '                                        ' ;6
  2342.  dc.b '                                        ' ;7
  2343.  dc.b '                                        ' ;8
  2344.  dc.b '                                        ' ;9
  2345.  dc.b '                                        ' ;0
  2346.  dc.b '                                        ' ;1
  2347.  
  2348. ONEPLAYERMENU_OPTS:
  2349.  dc.w 0,11,40,1
  2350.  dc.w 16,13,8,1
  2351.  dc.w 15,15,10,1
  2352.  dc.w 12,17,16,1
  2353.  dc.w 14,19,12,1
  2354.  dc.w 12,21,16,1
  2355.  dc.w 12,23,16,1
  2356.  dc.w -1
  2357.  
  2358.  
  2359. MASTERPLAYERMENU_TXT:
  2360. ;      0123456789012345678901234567890123456789
  2361.  dc.b '                                        ' ;0
  2362.  dc.b '                                        ' ;1
  2363.  dc.b '                                        ' ;2
  2364.  dc.b '                                        ' ;3
  2365.  dc.b '                                        ' ;4
  2366.  dc.b '                                        ' ;5
  2367.  dc.b '                                        ' ;6
  2368.  dc.b '                                        ' ;7
  2369.  dc.b '                                        ' ;8
  2370.  dc.b '                                        ' ;9
  2371.  dc.b '                                        ' ;0
  2372.  dc.b '                                        ' ;1
  2373.  dc.b '            2 PLAYER  MASTER            ' ;2
  2374.  dc.b '                                        ' ;3
  2375. CURRENTLEVELLINEM:
  2376.  dc.b '           LEVEL 1 : THE GATE           ' ;4 
  2377.  dc.b '                                        ' ;5
  2378.  dc.b '               PLAY  GAME               ' ;6
  2379.  dc.b '                                        ' ;7
  2380.  dc.b '            CONTROL  OPTIONS            ' ;8
  2381.  dc.b '                                        ' ;9
  2382.  dc.b '                                        ' ;0
  2383.  dc.b '                                        ' ;1
  2384.  dc.b '                                        ' ;2
  2385.  dc.b '                                        ' ;3
  2386.  dc.b '                                        ' ;4
  2387.  dc.b '                                        ' ;5
  2388.  dc.b '                                        ' ;6
  2389.  dc.b '                                        ' ;7
  2390.  dc.b '                                        ' ;8
  2391.  dc.b '                                        ' ;9
  2392.  dc.b '                                        ' ;0
  2393.  dc.b '                                        ' ;1
  2394.  
  2395. MASTERPLAYERMENU_OPTS:
  2396.  dc.w 12,12,16,1
  2397.  dc.w 6,14,28,1
  2398.  dc.w 15,16,10,1
  2399.  dc.w 12,18,16,1
  2400.  dc.w -1
  2401.  
  2402. SLAVEPLAYERMENU_TXT:
  2403. ;      0123456789012345678901234567890123456789
  2404.  dc.b '                                        ' ;0
  2405.  dc.b '                                        ' ;1
  2406.  dc.b '                                        ' ;2
  2407.  dc.b '                                        ' ;3
  2408.  dc.b '                                        ' ;4
  2409.  dc.b '                                        ' ;5
  2410.  dc.b '                                        ' ;6
  2411.  dc.b '                                        ' ;7
  2412.  dc.b '                                        ' ;8
  2413.  dc.b '                                        ' ;9
  2414.  dc.b '                                        ' ;9
  2415.  dc.b '                                        ' ;1
  2416.  dc.b '             2 PLAYER SLAVE             ' ;4
  2417.  dc.b '                                        ' ;3
  2418.  dc.b '               PLAY  GAME               ' ;2
  2419.  dc.b '                                        ' ;5
  2420.  dc.b '            CONTROL  OPTIONS            ' ;0
  2421.  dc.b '                                        ' ;1
  2422.  dc.b '                                        ' ;3
  2423.  dc.b '                                        ' ;7
  2424.  dc.b '                                        ' ;7
  2425.  dc.b '                                        ' ;3
  2426.  dc.b '                                        ' ;3
  2427.  dc.b '                                        ' ;3
  2428.  dc.b '                                        ' ;4
  2429.  dc.b '                                        ' ;5
  2430.  dc.b '                                        ' ;6
  2431.  dc.b '                                        ' ;7
  2432.  dc.b '                                        ' ;9
  2433.  dc.b '                                        ' ;9
  2434.  dc.b '                                        ' ;9
  2435.  dc.b '                                        ' ;9
  2436.  
  2437.  
  2438. PROTMENU_TXT:
  2439. ;      0123456789012345678901234567890123456789
  2440.  dc.b '                                        ' ;0
  2441.  dc.b '                                        ' ;1
  2442.  dc.b '                                        ' ;2
  2443.  dc.b '                                        ' ;3
  2444.  dc.b '                                        ' ;4
  2445.  dc.b '                                        ' ;5
  2446.  dc.b '                                        ' ;6
  2447.  dc.b '                                        ' ;7
  2448.  dc.b '                                        ' ;8
  2449.  dc.b '                                        ' ;9
  2450.  dc.b '                                        ' ;0
  2451.  dc.b '                                        ' ;1
  2452.  dc.b ' TYPE IN THREE DIGIT CODE FROM MANUAL : ' ;2
  2453.  dc.b '                                        ' ;3
  2454. PROTLINE:
  2455.  dc.b '        TABLE 00 ROW 00 COLUMN 00       ' ;4
  2456.  dc.b '                                        ' ;5
  2457.  dc.b '                                        ' ;6
  2458.  dc.b '                                        ' ;7
  2459.  dc.b '                                        ' ;8
  2460.  dc.b '                                        ' ;9
  2461.  dc.b '                                        ' ;0
  2462.  dc.b '                                        ' ;1
  2463.  dc.b '                                        ' ;2
  2464.  dc.b '                                        ' ;3
  2465.  dc.b '                                        ' ;4
  2466.  dc.b '                                        ' ;5
  2467.  dc.b '                                        ' ;6
  2468.  dc.b '                                        ' ;7
  2469.  dc.b '                                        ' ;9
  2470.  dc.b '                                        ' ;0
  2471.  dc.b '                                        ' ;1
  2472.  
  2473.  
  2474.  
  2475. SLAVEPLAYERMENU_OPTS:
  2476.  dc.w 12,12,16,1
  2477.  dc.w 15,14,10,1
  2478.  dc.w 12,16,16,1
  2479.  dc.w -1
  2480.  
  2481.  
  2482. PLAYER_OPTS:
  2483. ;      0123456789012345678901234567890123456789
  2484.  dc.b '                 1 PLAYER               '
  2485.  dc.b '             2  PLAYER MASTER           '
  2486.  dc.b '              2 PLAYER SLAVE            '
  2487.  
  2488. LEVEL_OPTS:
  2489. ;      0123456789012345678901234567890123456789
  2490.  dc.b  '       CU AMIGA *EXCLUSIVE* DEMO        '
  2491.  dc.b '      LEVEL  2 :       STORAGE BAY      '
  2492.  dc.b '      LEVEL  3 :     SEWER NETWORK      '
  2493.  dc.b '      LEVEL  4 :     THE COURTYARD      '
  2494.  dc.b '      LEVEL  5 :      SYSTEM PURGE      '
  2495.  dc.b '      LEVEL  6 :         THE MINES      '
  2496.  dc.b '      LEVEL  7 :       THE FURNACE      '
  2497.  dc.b '      LEVEL  8 :  TEST ARENA GAMMA      '
  2498.  dc.b '      LEVEL  9 :      SURFACE ZONE      '
  2499.  dc.b '      LEVEL 10 :     TRAINING AREA      '
  2500.  dc.b '      LEVEL 11 :       ADMIN BLOCK      '
  2501.  dc.b '      LEVEL 12 :           THE PIT      '
  2502.  dc.b '      LEVEL 13 :            STRATA      '
  2503.  dc.b '      LEVEL 14 :      REACTOR CORE      '
  2504.  dc.b '      LEVEL 15 :     COOLING TOWER      '
  2505.  dc.b '      LEVEL 16 :    COMMAND CENTRE      '
  2506.  
  2507. CONTROL_TXT:
  2508. ;      0123456789012345678901234567890123456789
  2509.  dc.b '                                        ' ;0
  2510.  dc.b '                                        ' ;1
  2511.  dc.b '            DEFINE  CONTROLS            ' ;2
  2512.  dc.b '                                        ' ;3
  2513. ;KEY_LINES:
  2514.  dc.b '     TURN LEFT                  LCK     ' ;4
  2515.  dc.b '     TURN RIGHT                 RCK     ' ;5
  2516.  dc.b '     FORWARDS                   UCK     ' ;6
  2517.  dc.b '     BACKWARDS                  DCK     ' ;7
  2518.  dc.b '     FIRE                       RAL     ' ;8
  2519.  dc.b '     OPERATE DOOR/LIFT/SWITCH   SPC     ' ;9
  2520.  dc.b '     RUN                        RSH     ' ;0
  2521.  dc.b '     FORCE SIDESTEP             RAM     ' ;1
  2522.  dc.b '     SIDESTEP LEFT               .      ' ;2
  2523.  dc.b '     SIDESTEP RIGHT              /      ' ;3
  2524.  dc.b '     DUCK                        D      ' ;4
  2525.  dc.b '     LOOK BEHIND                 L      ' ;5
  2526.  dc.b '     JUMP                       KP0     ' ;6
  2527.  dc.b '     LOOK UP                     ]      ' ;7
  2528.  dc.b '     LOOK DOWN                   #      ' ;8
  2529.  dc.b '     CENTRE VIEW                 ;      ' ;9
  2530.  dc.b '     NEXT WEAPON                RET     ' ;9
  2531.  dc.b '                                        ' ;9
  2532.  dc.b '             OTHER CONTROLS             ' ;0
  2533.  dc.b '                                        ' ;1
  2534.  dc.b '1-0   Select Weapon P              Pause' ;2
  2535.  dc.b 'F1   Zoom in on map F3 4/8 Channel Sound' ;3
  2536.  dc.b 'F2  Zoom out on map F4 Mono/Stereo Sound' ;4
  2537.  dc.b 'F5 Recall Message   F6    Render Quality'  
  2538.  dc.b '    Keypad 1-9 scroll map, 5 centres    ' ;5
  2539.  dc.b '                                        ' ;7
  2540.  dc.b '               MAIN  MENU               ' ;8
  2541.  dc.b '                                        ' ;1
  2542.  
  2543. CONTROL_OPTS:
  2544.  dc.w 5,4,30,1
  2545.  dc.w 5,5,30,1
  2546.  dc.w 5,6,30,1
  2547.  dc.w 5,7,30,1
  2548.  dc.w 5,8,30,1
  2549.  dc.w 5,9,30,1
  2550.  dc.w 5,10,30,1
  2551.  dc.w 5,11,30,1
  2552.  dc.w 5,12,30,1
  2553.  dc.w 5,13,30,1
  2554.  dc.w 5,14,30,1
  2555.  dc.w 5,15,30,1
  2556.  dc.w 5,16,30,1
  2557.  dc.w 5,17,30,1
  2558.  dc.w 5,18,30,1
  2559.  dc.w 5,19,30,1
  2560.  dc.w 5,20,30,1
  2561.  dc.w 15,30,10,1
  2562.  dc.w -1
  2563.  
  2564. PLOPT: dc.w 0
  2565.  
  2566. INSTRUCTIONS_TXT:
  2567. ;      0123456789012345678901234567890123456789
  2568.  dc.b 'Main controls:                          ' ;1
  2569.  dc.b '                                        ' ;2
  2570.  dc.b 'Curs Keys = Forward / Backward          ' ;3
  2571.  dc.b '            Turn left / right           ' ;4
  2572.  dc.b '          Right Alt = Fire              ' ;5
  2573.  dc.b '        Right Shift = Run               ' ;6
  2574.  dc.b '                  > = Slide Left        ' ;7
  2575.  dc.b '                  ? = Slide Right       ' ;8
  2576.  dc.b '              SPACE = Operate Door/Lift ' ;9
  2577.  dc.b '                  D = Duck              ' ;0
  2578.  dc.b '                  J = Joystick Control  ' ;1
  2579.  dc.b '                  K = Keyboard Control  ' ;2
  2580.  dc.b '                                        ' ;3
  2581.  dc.b '              1,2,3 = Select weapon     ' ;4
  2582.  dc.b '              ENTER = Toggle screen size' ;5
  2583.  dc.b '                ESC = Quit              ' ;6
  2584.  dc.b '                                        ' ;7
  2585.  dc.b '                                        ' ;8
  2586.  dc.b 'The one player game has no objective and' ;9
  2587.  dc.b 'the only way to finish is to die or quit' ;0
  2588.  dc.b '                                        ' ;1
  2589.  dc.b 'The two-player game is supposed to be a ' ;2
  2590.  dc.b 'fight to the death but will probably be ' ;3
  2591.  dc.b 'a fight-till-we-find-the-rocket-launcher' ;4
  2592.  dc.b 'then-blow-ourselves-up type game.       ' ;5
  2593.  dc.b '                                        ' ;6
  2594.  dc.b 'LOOK OUT FOR TELEPORTERS: They usually  ' ;7
  2595.  dc.b 'have glowing red walls and overhead     ' ;8
  2596.  dc.b 'lights. Useful for getting behind your  ' ;9
  2597.  dc.b ' opponent!                              ' ;0
  2598.  dc.b '  Just a taster of what is to come....  ' ;1
  2599.  dc.b '                                        ' ;0
  2600.  
  2601. INSTRUCTIONS_OPTS:
  2602.  dc.w 0,0,0,1
  2603.  dc.w -1
  2604.  
  2605. CREDITMENU_TXT:
  2606.  
  2607. ;      0123456789012345678901234567890123456789
  2608.  dc.b '    Programming, Game Code, Graphics    ' ;0
  2609.  dc.b '         Game Design and Manual         ' ;1
  2610.  dc.b '            Andrew Clitheroe            ' ;2
  2611.  dc.b '                                        ' ;3
  2612.  dc.b '       Alien and Scenery Graphics       ' ;4
  2613.  dc.b '             Michael  Green             ' ;5
  2614.  dc.b '                                        ' ;6
  2615.  dc.b '           3D Object Designer           ' ;7
  2616.  dc.b '            Charles Blessing            ' ;8
  2617.  dc.b '                                        ' ;9
  2618.  dc.b '              Level Design              ' ;0
  2619.  dc.b 'Jackie Lang   Michael Green  Ben Chanter' ;1
  2620.  dc.b '                                        ' ;3
  2621.  dc.b '                                        ' ;3
  2622.  dc.b '           Creative  Director           ' ;4
  2623.  dc.b '              Martyn Brown              ' ;5
  2624.  dc.b '                                        ' ;6
  2625.  dc.b '       Project Manager and Manual       ' ;7
  2626.  dc.b '          Phil Quirke-Webster           ' ;8
  2627.  dc.b '                                        ' ;9
  2628.  dc.b '                 Music                  ' ;0
  2629.  dc.b '           Ben "666" Chanter            ' ;1
  2630.  dc.b '                                        ' ;2
  2631.  dc.b '      Cover Illustration and Logo       ' ;3
  2632.  dc.b '             Kevin Jenkins              ' ;4
  2633.  dc.b '                                        ' ;5
  2634.  dc.b '      Packaging and Manual Design       ' ;6
  2635.  dc.b '               Paul Sharp               ' ;7
  2636.  dc.b '                                        ' ;8
  2637.  dc.b '             QA and Playtest            ' ;9
  2638.  dc.b '     Too numerous to mention here!      ' ;0
  2639.  dc.b '                                        ' ;1
  2640.  
  2641.  dc.b '    Serial Link and 3D Object Editor:   ' ;4
  2642.  dc.b '                   by                   ' ;5
  2643.  dc.b '            Charles Blessing            ' ;6
  2644.  dc.b '                                        ' ;7
  2645.  dc.b '                Graphics:               ' ;8
  2646.  dc.b '                   by                   ' ;9
  2647.  dc.b '              Mike  Oakley              ' ;0
  2648.  dc.b '                                        ' ;1
  2649.  dc.b '             Title  Picture             ' ;2
  2650.  dc.b '                   by                   ' ;3
  2651.  dc.b '               Mike Green               ' ;4
  2652.  dc.b '                                        ' ;5
  2653.  dc.b ' Inspiration, incentive, moral support, ' ;6
  2654.  dc.b '     level design and plenty of tea     ' ;7
  2655.  dc.b '         generously supplied by         ' ;8
  2656.  dc.b '                                        ' ;9
  2657.  dc.b '              Jackie  Lang              ' ;0
  2658.  dc.b '                                        ' ;1
  2659.  dc.b '    Music for the last demo composed    ' ;2
  2660.  dc.b '       by the inexpressibly evil:       ' ;3
  2661.  dc.b '                                        ' ;8
  2662.  dc.b '            *BAD* BEN CHANTER           ' ;9
  2663.  dc.b '                                        ' ;0
  2664.  dc.b '    Sadly no room for music this time   ' ;1
  2665.  dc.b '                                        ' ;7
  2666.  dc.b '                                        ' ;7
  2667.  
  2668. CREDITMENU_OPTS:
  2669.  dc.w 0,0,1,1
  2670.  dc.w -1
  2671.  
  2672.  
  2673. ;      0123456789012345678901234567890123456789
  2674.  dc.b '                                        ' ;0
  2675.  dc.b '                                        ' ;1
  2676.  dc.b '                                        ' ;2
  2677.  dc.b '                                        ' ;3
  2678.  dc.b '                                        ' ;4
  2679.  dc.b '                                        ' ;5
  2680.  dc.b '                                        ' ;6
  2681.  dc.b '                                        ' ;7
  2682.  dc.b '                                        ' ;8
  2683.  dc.b '                                        ' ;9
  2684.  dc.b '                                        ' ;0
  2685.  dc.b '                                        ' ;1
  2686.  dc.b '                                        ' ;2
  2687.  dc.b '                                        ' ;3
  2688.  dc.b '                                        ' ;4
  2689.  dc.b '                                        ' ;5
  2690.  dc.b '                                        ' ;6
  2691.  dc.b '                                        ' ;7
  2692.  dc.b '                                        ' ;8
  2693.  dc.b '                                        ' ;9
  2694.  dc.b '                                        ' ;0
  2695.  dc.b '                                        ' ;1
  2696.  dc.b '                                        ' ;2
  2697.  dc.b '                                        ' ;3
  2698.  dc.b '                                        ' ;4
  2699.  dc.b '                                        ' ;5
  2700.  dc.b '                                        ' ;6
  2701.  dc.b '                                        ' ;7
  2702.  dc.b '                                        ' ;8
  2703.  dc.b '                                        ' ;9
  2704.  dc.b '                                        ' ;0
  2705.  dc.b '                                        ' ;1
  2706.  
  2707.  
  2708. ********************************************************
  2709.  
  2710. PUTIN32:
  2711.  
  2712.  moveq #0,d2
  2713.  moveq #0,d3
  2714.  moveq #0,d4
  2715.  moveq #0,d5
  2716.  moveq #0,d6
  2717.  moveq #0,d7
  2718.  
  2719.  move.w #31,d2
  2720. p32loop:
  2721.  moveq #0,d5
  2722.  move.l (a0)+,d3
  2723.  move.w d3,d4
  2724.  swap d3
  2725.  move.b d4,d5
  2726.  lsr.w #8,d4
  2727.  
  2728.  muls d0,d3
  2729.  muls d0,d4
  2730.  muls d0,d5
  2731.  lsr.l #8,d3
  2732.  lsr.l #8,d4
  2733.  lsr.l #8,d5
  2734.  move.w d3,d6
  2735.  swap d3
  2736.  move.w d6,d3
  2737.  move.w d4,d6
  2738.  swap d4
  2739.  move.w d6,d4
  2740.  move.w d5,d6
  2741.  swap d5
  2742.  move.w d6,d5
  2743.  and.w #%11110000,d3
  2744.  and.w #%11110000,d4
  2745.  and.w #%11110000,d5
  2746.  lsl.w #4,d3
  2747.  add.w d4,d3
  2748.  lsr.w #4,d5
  2749.  add.w d5,d3
  2750.  move.w d3,2(a1)
  2751.  swap d3
  2752.  swap d4
  2753.  swap d5
  2754.  and.w #%1111,d3
  2755.  and.w #%1111,d4
  2756.  and.w #%1111,d5
  2757.  lsl.w #8,d3
  2758.  lsl.w #4,d4
  2759.  add.w d4,d3
  2760.  add.w d5,d3
  2761.  move.w d3,2+(132*4)(a1)
  2762.  addq #4,a1
  2763.  dbra d2,p32loop
  2764.  
  2765.  
  2766.  rts
  2767.  
  2768. **************************************
  2769.  
  2770. FADEAMOUNT: dc.w 0
  2771. FADEVAL: dc.w 0
  2772.  
  2773. FADEUPTITLE:
  2774.  
  2775.  moveq #0,d0
  2776.  moveq #0,d1
  2777.  move.w FADEVAL,d0
  2778.  move.w FADEAMOUNT,d1
  2779. fadeuploop:
  2780.  
  2781.  move.l #TITLEPAL,a0
  2782.  move.l #TITLEPALCOP,a1
  2783.  
  2784. wvb:
  2785.  btst #5,$dff000+intreqrl
  2786.  beq.s wvb
  2787.  move.w #$20,$dff000+intreq 
  2788.  
  2789.  bsr PUTIN32
  2790.  add.w #4,a1
  2791.  bsr PUTIN32
  2792.  add.w #4,a1
  2793.  bsr PUTIN32
  2794.  add.w #4,a1
  2795.  bsr PUTIN32
  2796.  
  2797.  addq.w #8,d0
  2798.  dbra d1,fadeuploop
  2799.  
  2800.  subq #8,d0
  2801.  move.w d0,FADEVAL
  2802.  
  2803.  rts
  2804.  
  2805. CLEARTITLEPAL:
  2806.  PRSDP
  2807.  move.l #TITLEPALCOP,a0
  2808.  move.w #7,d1
  2809. clrpal:
  2810.  move.w #31,d0
  2811. clr32
  2812.  move.w #0,2(a0)
  2813.  addq #4,a0
  2814.  dbra d0,clr32
  2815.  addq #4,a0
  2816.  dbra d1,clrpal
  2817.  PRSDQ
  2818.  rts
  2819.  
  2820. FADEDOWNTITLE:
  2821.  
  2822.  move.w FADEVAL,d0
  2823.  move.w FADEAMOUNT,d1
  2824. fadedownloop:
  2825.  
  2826.  move.l #TITLEPAL,a0
  2827.  move.l #TITLEPALCOP,a1
  2828.  
  2829. .wvb:
  2830.  btst #5,$dff000+intreqrl
  2831.  beq.s .wvb
  2832.  move.w #$20,$dff000+intreq 
  2833.  
  2834.  bsr PUTIN32
  2835.  add.w #4,a1
  2836.  bsr PUTIN32
  2837.  add.w #4,a1
  2838.  bsr PUTIN32
  2839.  add.w #4,a1
  2840.  bsr PUTIN32
  2841.  
  2842.  subq.w #8,d0
  2843.  dbra d1,fadedownloop
  2844.  
  2845.  addq #8,d0
  2846.  move.w d0,FADEVAL
  2847.  
  2848.  rts
  2849.  
  2850. LOADTITLESCRN2:
  2851.  
  2852.  
  2853.  move.l #MEMF_CLEAR,d1
  2854.  move.l #52400,d0
  2855.  move.l 4.w,a6
  2856.  jsr    _LVOAllocMem(a6)
  2857.  tst.l  d0
  2858.  beq    .nomem
  2859.  
  2860.  move.l d0,tempptr
  2861.  
  2862.  move.l TITLESCRNPTR,d1
  2863.  move.l #1005,d2
  2864.  move.l doslib,a6
  2865.  jsr -30(a6)
  2866.  move.l d0,handle
  2867.  move.l d0,d1
  2868.  move.l doslib,a6
  2869. ; move.l TITLESCRNADDR,d2
  2870.  move.l tempptr,d2
  2871.  move.l #10240*7,d3
  2872.  jsr -42(a6)
  2873.  move.l doslib,a6
  2874.  move.l handle,d1
  2875.  jsr -36(a6)
  2876.  
  2877.     
  2878.  move.l TITLESCRNADDR,a0
  2879.  move.l tempptr,d0
  2880.  
  2881.  moveq #0,d1
  2882.  lea WorkSpace,a1
  2883.  lea $0,a2
  2884.  jsr unLHA
  2885.  
  2886.  move.l tempptr,a1
  2887.  move.l #52400,d0
  2888.  CALLEXEC FreeMem
  2889.   
  2890. .nomem
  2891.  
  2892.  rts
  2893.  
  2894. tempptr dc.l 0
  2895.  
  2896.  
  2897. GETTITLEMEM:
  2898.  move.l #2,d1
  2899.  move.l #10240*7,d0
  2900.  move.l 4.w,a6
  2901.  jsr -198(a6)
  2902.  move.l d0,TITLESCRNADDR
  2903.  
  2904.  move.l #$dff000-$2cdfe4,a4
  2905.  
  2906.  move.l #2,d1
  2907.  move.l #258*16*5,d0
  2908.  move.l 4.w,a6
  2909.  jsr -198(a6)
  2910.  move.l d0,OPTSPRADDR
  2911.  
  2912.  rts
  2913.  
  2914. ProtChkJLev1:
  2915.  
  2916. PROTSETUP:
  2917.  incbin "ab3:includes/protsetupenc"
  2918.  
  2919. ; Need to: Decode protection calling
  2920. ; routine
  2921. ; use null values to call it and erase
  2922. ; it from memory
  2923. ; erase this routine and return.
  2924.  
  2925. ; include "ab3:source/protsetup"
  2926.  
  2927.  
  2928. RELEASETITLEMEM:
  2929.  move.l TITLESCRNADDR,d1
  2930.  move.l d1,a1
  2931.  move.l #10240*7,d0
  2932.  move.l 4.w,a6
  2933.  jsr -210(a6)
  2934.  
  2935.  move.l OPTSPRADDR,d1
  2936.  move.l d1,a1
  2937.  move.l #258*80,d0
  2938.  move.l 4.w,a6
  2939.  jsr -210(a6)
  2940.  rts
  2941.  
  2942.  
  2943. PROTCALLENC:
  2944. ; incbin "ab3:source/protcallenc.bin
  2945.  
  2946. ; one pass, all instructions executed.
  2947. ; must call protection routine,store
  2948. ; value somewhere, call ask routine,
  2949. ; compare returned value, if correct
  2950. ; set up all values, then return.
  2951.  
  2952. ; include "ab3:source_4000/protcallenc"
  2953.  
  2954. ENDPROT:
  2955.  
  2956. LOADTITLESCRN:
  2957.  
  2958.  move.l #TITLESCRNNAME,d1
  2959.  move.l #1005,d2
  2960.  move.l doslib,a6
  2961.  jsr -30(a6)
  2962.  move.l d0,handle
  2963.  move.l d0,d1
  2964.  move.l doslib,a6
  2965.  move.l TITLESCRNADDR,d2
  2966.  move.l #10240*7,d3
  2967.  jsr -42(a6)
  2968.  move.l doslib,a6
  2969.  move.l handle,d1
  2970.  jsr -36(a6)
  2971.  
  2972.  rts
  2973.  
  2974. RVAL2: dc.w 0
  2975.  
  2976. SETUPTITLESCRN:
  2977.  
  2978.  PRSDR
  2979.  move.l #OPTCOP,a0
  2980.  move.l #rain,a1
  2981.  move.w #255,d0
  2982. putinrain:
  2983.  move.w (a1)+,d1
  2984.  move.w d1,6(a0)
  2985.  move.w d1,6+4(a0)
  2986.  move.w d1,6+8(a0)
  2987.  move.w d1,6+12(a0)
  2988.  add.w #4*14,a0
  2989.  
  2990.  dbra d0,putinrain
  2991.  
  2992. ; Put addr into copper.
  2993.  move.l OPTSPRADDR,d0
  2994.  move.w d0,tsp0l
  2995.  swap d0
  2996.  move.w d0,tsp0h
  2997.  swap d0
  2998.  add.l #258*16,d0
  2999.  move.w d0,tsp1l
  3000.  swap d0
  3001.  move.w d0,tsp1h
  3002.  swap d0
  3003.  add.l #258*16,d0
  3004.  move.w d0,tsp2l
  3005.  swap d0
  3006.  move.w d0,tsp2h
  3007.  swap d0
  3008.  add.l #258*16,d0
  3009.  move.w d0,tsp3l
  3010.  swap d0
  3011.  move.w d0,tsp3h
  3012.  swap d0
  3013.  add.l #258*16,d0
  3014.  move.w d0,tsp4l
  3015.  swap d0
  3016.  move.w d0,tsp4h
  3017.  
  3018.  move.l #nullspr,d0
  3019.  move.w d0,tsp5l
  3020.  move.w d0,tsp6l
  3021.  move.w d0,tsp7l
  3022.  swap d0
  3023.  move.w d0,tsp5h
  3024.  move.w d0,tsp6h
  3025.  move.w d0,tsp7h 
  3026.  
  3027.  move.l TITLESCRNADDR,d0
  3028.  move.w d0,ts1l
  3029.  swap d0
  3030.  move.w d0,ts1h
  3031.  swap d0
  3032.  add.l #10240,d0
  3033.  move.w d0,ts2l
  3034.  swap d0
  3035.  move.w d0,ts2h
  3036.  swap d0
  3037.  add.l #10240,d0
  3038.  move.w d0,ts3l
  3039.  swap d0
  3040.  move.w d0,ts3h
  3041.  swap d0
  3042.  add.l #10240,d0
  3043.  move.w d0,ts4l
  3044.  swap d0
  3045.  move.w d0,ts4h
  3046.  swap d0
  3047.  add.l #10240,d0
  3048.  move.w d0,ts5l
  3049.  swap d0
  3050.  move.w d0,ts5h
  3051.  swap d0
  3052.  add.l #10240,d0
  3053.  move.w d0,ts6l
  3054.  swap d0
  3055.  move.w d0,ts6h
  3056.  swap d0
  3057.  add.l #10240,d0
  3058.  move.w d0,ts7l
  3059.  swap d0
  3060.  move.w d0,ts7h
  3061.  rts 
  3062.  
  3063. RVAL1: dc.w 0
  3064.  
  3065. DummyAdds:
  3066.  dc.l dummy-78935450
  3067.  dc.l dummy-78935450
  3068.  dc.l dummy-78935450
  3069.  dc.l dummy-78935450
  3070.  dc.l dummy-78935450
  3071.  dc.l dummy-78935450
  3072.  dc.l dummy-78935450
  3073.  dc.l dummy-78935450
  3074.  dc.l dummy-78935450
  3075.  dc.l dummy-78935450
  3076.  
  3077. LEVELTEXTNAME: dc.b 'TKG1:includes/TEXT_FILE'
  3078.  
  3079.  even
  3080.  
  3081. LEVELTEXT:
  3082.  dc.l 0
  3083.  
  3084. dummycall
  3085.  dc.w $4e75-123
  3086.  
  3087. protspace: 
  3088.  ds.l 200
  3089.  
  3090. ; include "ab3:source_4000/LEVEL_BLURB"
  3091.  
  3092. font:
  3093.  incbin "Starquake.font.bin"
  3094.  
  3095. rain: incbin "optcop"
  3096.  
  3097.     include "ab3:demo/menu/menunb.s"